Revision 5aa48dbe Ganeti/HTools/Rapi.hs

b/Ganeti/HTools/Rapi.hs
73 73
              (show `liftM` disk) |+
74 74
              running |+ pnode |+ snode
75 75

  
76
boolToYN :: Bool -> Result String
77
boolToYN True = Ok "Y"
78
boolToYN _ = Ok "N"
76
boolToYN :: (Monad m) => Bool -> m String
77
boolToYN True = return "Y"
78
boolToYN _ = return "N"
79 79

  
80 80
parseNode :: JSObject JSValue -> Result String
81 81
parseNode a =

Also available in: Unified diff