Revision a9ccc950

b/htools/Ganeti/BasicTypes.hs
56 56 
  return = Ok
57 57 
  fail = Bad
58 58 

  		





  
  59
  
    
instance Functor Result where


  		





  
  60
  
    
  fmap _ (Bad msg) = Bad msg


  		





  
  61
  
    
  fmap fn (Ok val) = Ok (fn val)


  		





  
  62
  
    

  		





  59
  63
  
    
instance MonadPlus Result where


  		





  60
  64
  
    
  mzero = Bad "zero Result when used as MonadPlus"


  		





  61
  65
  
    
  -- for mplus, when we 'add' two Bad values, we concatenate their


  		












Also available in:
  Unified diff