Revision c92b4671 src/Ganeti/Query/Group.hs

b/src/Ganeti/Query/Group.hs
26 26 
module Ganeti.Query.Group
27 27 
  (fieldsMap) where
28 28 

  		





  29
  
  
    
import qualified Data.Map as Map


  		





  30
  
  
    

  		





  31
  29
  
    
import Ganeti.Config


  		





  32
  30
  
    
import Ganeti.Objects


  		





  33
  31
  
    
import Ganeti.Query.Language


  		





  ......




  83
  81
  
    

  		





  84
  82
  
    
-- | The group fields map.


  		





  85
  83
  
    
fieldsMap :: FieldMap NodeGroup NoDataRuntime


  		





  86
  
  
    
fieldsMap =


  		





  87
  
  
    
  Map.fromList $ map (\v@(f, _, _) -> (fdefName f, v)) groupFields


  		





  
  84
  
    
fieldsMap = fieldListToFieldMap groupFields


  		












Also available in:
  Unified diff