Revision 4fb78549

b/src/Ganeti/Query/Types.hs
33 33 
  , FieldList
34 34 
  , FieldMap
35 35 
  , isRuntimeField
36 
  , fieldListToFieldMap
36 37 
  ) where
37 38 

  		





  38
  39
  
    
import qualified Data.Map as Map


  		





  ......




  75
  76
  
    
isRuntimeField FieldRuntime {}       = True


  		





  76
  77
  
    
isRuntimeField FieldConfigRuntime {} = True


  		





  77
  78
  
    
isRuntimeField _                     = False


  		





  
  79
  
    

  		





  
  80
  
    
-- | Helper function to obtain a FieldMap from the corresponding FieldList.


  		





  
  81
  
    
fieldListToFieldMap :: FieldList a b -> FieldMap a b


  		





  
  82
  
    
fieldListToFieldMap = Map.fromList . map (\v@(f, _, _) -> (fdefName f, v))


  		












Also available in:
  Unified diff