Signed-off-by: Jose A. Lopes <[email protected]>
---
src/Ganeti/Luxi.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/Ganeti/Luxi.hs b/src/Ganeti/Luxi.hs
index b14356e..97890b2 100644
--- a/src/Ganeti/Luxi.hs
+++ b/src/Ganeti/Luxi.hs
@@ -289,7 +289,7 @@ decodeLuxiCall method args = do
return $ SetDrainFlag flag
ReqSetWatcherPause -> do
let duration = case args of
- JSArray [JSRational _ x]
+ JSArray [JSRational _ x]
-> Just (fromRational x :: Double)
_ -> Nothing
return $ SetWatcherPause duration
--
1.9.1.423.g4596e3a