Revision 98bb64b4 src/Ganeti/Luxi.hs

b/src/Ganeti/Luxi.hs
289 289 
              return $ SetDrainFlag flag
290 290 
    ReqSetWatcherPause -> do
291 291 
              let duration = case args of
292 
                               JSArray [JSRational _ x]
292 
                               JSArray [JSRational _ x]
293 293 
                                 -> Just (fromRational x :: Double)
294 294 
                               _ -> Nothing
295 295 
              return $ SetWatcherPause duration

Also available in: Unified diff