Revision 1cb92fac htools/Ganeti/HTools/Types.hs

b/htools/Ganeti/HTools/Types.hs
264 264 
data Result a
265 265 
    = Bad String
266 266 
    | Ok a
267 
    deriving (Show, Read)
267 
    deriving (Show, Read, Eq)
268 268 

  		





  269
  269
  
    
instance Monad Result where


  		





  270
  270
  
    
    (>>=) (Bad x) _ = Bad x


  		












Also available in:
  Unified diff