Revision 4393e075 htools/Ganeti/Query/Common.hs

b/htools/Ganeti/Query/Common.hs
29 29 
  , rsMaybe
30 30 
  , rsUnknown
31 31 
  , missingRuntime
32 
  , rpcErrorToStatus
32 33 
  , timeStampFields
33 34 
  , uuidFields
34 35 
  , serialFields
......
45 46 
import qualified Ganeti.Constants as C
46 47 
import Ganeti.Config
47 48 
import Ganeti.Objects
49 
import Ganeti.Rpc
48 50 
import Ganeti.Query.Language
49 51 
import Ganeti.Query.Types
50 52 

  		





  ......




  84
  86
  
    
missingRuntime :: FieldGetter a b


  		





  85
  87
  
    
missingRuntime = FieldRuntime (\_ _ -> ResultEntry RSNoData Nothing)


  		





  86
  88
  
    

  		





  
  89
  
    
-- * Error conversion


  		





  
  90
  
    

  		





  
  91
  
    
-- | Convert RpcError to ResultStatus


  		





  
  92
  
    
rpcErrorToStatus :: RpcError -> ResultStatus


  		





  
  93
  
    
rpcErrorToStatus (OfflineNodeError _) = RSOffline


  		





  
  94
  
    
rpcErrorToStatus _ = RSNoData


  		





  
  95
  
    

  		





  87
  96
  
    
-- * Common fields


  		





  88
  97
  
    

  		





  89
  98
  
    
-- | The list of timestamp fields.


  		












Also available in:
  Unified diff