Revision 32be18fc src/Ganeti/Errors.hs

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

  		





  ......




  174
  175
  
    
formatError err =


  		





  175
  176
  
    
  "Unhandled exception: " ++ show err


  		





  176
  177
  
    

  		





  
  178
  
    
-- | A type for IO actions with errors properly handled as


  		





  
  179
  
    
-- 'GanetiException's.


  		





  
  180
  
    
-- TODO: Move to Errors.hs


  		





  
  181
  
    
type ResultG = ResultT GanetiException IO


  		





  
  182
  
    

  		





  177
  183
  
    
-- | Convert from an 'ErrorResult' to a standard 'Result'.


  		





  178
  184
  
    
errToResult :: ErrorResult a -> Result a


  		





  179
  185
  
    
errToResult (Ok a)  = Ok a


  		












Also available in:
  Unified diff