X-Git-Url: https://code.grnet.gr/git/ganeti-local/blobdiff_plain/942403e6b9f188e603af205ea2fbd156aac95627..5aa48dbeaa470eab92143cd7ae860f347e3e28c7:/Ganeti/HTools/Rapi.hs

diff --git a/Ganeti/HTools/Rapi.hs b/Ganeti/HTools/Rapi.hs
index e504981..3ffcfd0 100644
--- a/Ganeti/HTools/Rapi.hs
+++ b/Ganeti/HTools/Rapi.hs
@@ -73,9 +73,9 @@ parseInstance a =
               (show `liftM` disk) |+
               running |+ pnode |+ snode
 
-boolToYN :: Bool -> Result String
-boolToYN True = Ok "Y"
-boolToYN _ = Ok "N"
+boolToYN :: (Monad m) => Bool -> m String
+boolToYN True = return "Y"
+boolToYN _ = return "N"
 
 parseNode :: JSObject JSValue -> Result String
 parseNode a =