Revision f94a9680 htools/Ganeti/Query/Group.hs

b/htools/Ganeti/Query/Group.hs
43 43 
groupFields =
44 44 
  [ (FieldDefinition "alloc_policy" "AllocPolicy" QFTText
45 45 
       "Allocation policy for group",
46 
     FieldSimple (rsNormal . groupAllocPolicy))
46 
     FieldSimple (rsNormal . groupAllocPolicy), QffNormal)
47 47 
  , (FieldDefinition "custom_diskparams" "CustomDiskParameters" QFTOther
48 48 
       "Custom disk parameters",
49 
     FieldSimple (rsNormal . groupDiskparams))
49 
     FieldSimple (rsNormal . groupDiskparams), QffNormal)
50 50 
  , (FieldDefinition "custom_ipolicy" "CustomInstancePolicy" QFTOther
51 51 
       "Custom instance policy limitations",
52 
     FieldSimple (rsNormal . groupIpolicy))
52 
     FieldSimple (rsNormal . groupIpolicy), QffNormal)
53 53 
  , (FieldDefinition "custom_ndparams" "CustomNDParams" QFTOther
54 54 
       "Custom node parameters",
55 
     FieldSimple (rsNormal . groupNdparams))
55 
     FieldSimple (rsNormal . groupNdparams), QffNormal)
56 56 
  , (FieldDefinition "diskparams" "DiskParameters" QFTOther
57 57 
       "Disk parameters (merged)",
58 
     FieldConfig (\cfg -> rsNormal . getGroupDiskParams cfg))
58 
     FieldConfig (\cfg -> rsNormal . getGroupDiskParams cfg), QffNormal)
59 59 
  , (FieldDefinition "ipolicy" "InstancePolicy" QFTOther
60 60 
       "Instance policy limitations (merged)",
61 
     FieldConfig (\cfg ng -> rsNormal (getGroupIpolicy cfg ng)))
61 
     FieldConfig (\cfg ng -> rsNormal (getGroupIpolicy cfg ng)), QffNormal)
62 62 
  , (FieldDefinition "name" "Group" QFTText "Group name",
63 
     FieldSimple (rsNormal . groupName))
63 
     FieldSimple (rsNormal . groupName), QffNormal)
64 64 
  , (FieldDefinition "ndparams" "NDParams" QFTOther "Node parameters",
65 
     FieldConfig (\cfg ng -> rsNormal (getGroupNdParams cfg ng)))
65 
     FieldConfig (\cfg ng -> rsNormal (getGroupNdParams cfg ng)), QffNormal)
66 66 
  , (FieldDefinition "node_cnt" "Nodes" QFTNumber "Number of nodes",
67 
     FieldConfig (\cfg -> rsNormal . length . getGroupNodes cfg . groupName))
67 
     FieldConfig (\cfg -> rsNormal . length . getGroupNodes cfg . groupName),
68 
     QffNormal)
68 69 
  , (FieldDefinition "node_list" "NodeList" QFTOther "List of nodes",
69 70 
     FieldConfig (\cfg -> rsNormal . map nodeName .
70 
                          getGroupNodes cfg . groupName))
71 
                          getGroupNodes cfg . groupName), QffNormal)
71 72 
  , (FieldDefinition "pinst_cnt" "Instances" QFTNumber
72 73 
       "Number of primary instances",
73 74 
     FieldConfig
74 
       (\cfg -> rsNormal . length . fst . getGroupInstances cfg . groupName))
75 
       (\cfg -> rsNormal . length . fst . getGroupInstances cfg . groupName),
76 
     QffNormal)
75 77 
  , (FieldDefinition "pinst_list" "InstanceList" QFTOther
76 78 
       "List of primary instances",
77 79 
     FieldConfig (\cfg -> rsNormal . map instName . fst .
78 
                          getGroupInstances cfg . groupName))
80 
                          getGroupInstances cfg . groupName), QffNormal)
79 81 
  ] ++
80 82 
  map buildNdParamField allNDParamFields ++
81 83 
  timeStampFields ++
......
85 87 

  		





  86
  88
  
    
-- | The group fields map.


  		





  87
  89
  
    
groupFieldsMap :: FieldMap NodeGroup GroupRuntime


  		





  88
  
  
    
groupFieldsMap = Map.fromList $ map (\v -> (fdefName (fst v), v)) groupFields


  		





  
  90
  
    
groupFieldsMap =


  		





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


  		












Also available in:
  Unified diff