Revision 9491766c src/Ganeti/Errors.hs

b/src/Ganeti/Errors.hs
37 37 
  , errorExitCode
38 38 
  , excName
39 39 
  , formatError
40 
  , maybeToError
40 41 
  ) where
41 42 

  		





  42
  43
  
    
import Text.JSON hiding (Result, Ok)


  		





  ......




  177
  178
  
    
errToResult :: ErrorResult a -> Result a


  		





  178
  179
  
    
errToResult (Ok a)  = Ok a


  		





  179
  180
  
    
errToResult (Bad e) = Bad $ formatError e


  		





  
  181
  
    

  		





  
  182
  
    
-- | Convert from a 'Maybe' to a an 'ErrorResult'.


  		





  
  183
  
    
maybeToError :: String -> Maybe a -> ErrorResult a


  		





  
  184
  
    
maybeToError _ (Just a) = Ok a


  		





  
  185
  
    
maybeToError m  Nothing = Bad $ GenericError m


  		












Also available in:
  Unified diff