Revision ed5a07f2 src/Ganeti/Errors.hs

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

  		





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


  		





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


  		





  44
  45
  
    
import System.Exit


  		





  45
  46
  
    

  		





  ......




  111
  112
  
    
  , ("FileStoragePathError", [excErrMsg])


  		





  112
  113
  
    
  ])


  		





  113
  114
  
    

  		





  
  115
  
    
instance Error GanetiException where


  		





  
  116
  
    
  strMsg = mkFromString


  		





  
  117
  
    

  		





  114
  118
  
    
instance JSON GanetiException where


  		





  115
  119
  
    
  showJSON = saveGanetiException


  		





  116
  120
  
    
  readJSON = loadGanetiException


  		












Also available in:
  Unified diff