Revision a87a017b src/Ganeti/Errors.hs

b/src/Ganeti/Errors.hs
40 40 
  , maybeToError
41 41 
  ) where
42 42 

  		





  43
  
  
    
import Control.Monad.Error (Error(..))


  		





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


  		





  45
  44
  
    
import System.Exit


  		





  46
  45
  
    

  		





  ......




  113
  112
  
    
  ])


  		





  114
  113
  
    

  		





  115
  114
  
    
instance Error GanetiException where


  		





  116
  
  
    
  strMsg = mkFromString


  		





  
  115
  
    
  strMsg = GenericError


  		





  117
  116
  
    

  		





  118
  117
  
    
instance JSON GanetiException where


  		





  119
  118
  
    
  showJSON = saveGanetiException


  		





  120
  119
  
    
  readJSON = loadGanetiException


  		





  121
  120
  
    

  		





  122
  
  
    
instance FromString GanetiException where


  		





  123
  
  
    
  mkFromString = GenericError


  		





  124
  
  
    

  		





  125
  121
  
    
-- | Error monad using 'GanetiException' type alias.


  		





  126
  122
  
    
type ErrorResult = GenericResult GanetiException


  		





  127
  123
  
    

  		












Also available in:
  Unified diff