Revision e7124835 src/Ganeti/Query/Group.hs

b/src/Ganeti/Query/Group.hs
65 65 
  , (FieldDefinition "ndparams" "NDParams" QFTOther "Node parameters",
66 66 
     FieldConfig (\cfg ng -> rsNormal (getGroupNdParams cfg ng)), QffNormal)
67 67 
  , (FieldDefinition "node_cnt" "Nodes" QFTNumber "Number of nodes",
68 
     FieldConfig (\cfg -> rsNormal . length . getGroupNodes cfg . groupName),
68 
     FieldConfig (\cfg -> rsNormal . length . getGroupNodes cfg . groupUuid),
69 69 
     QffNormal)
70 70 
  , (FieldDefinition "node_list" "NodeList" QFTOther "List of nodes",
71 71 
     FieldConfig (\cfg -> rsNormal . map nodeName .
72 
                          getGroupNodes cfg . groupName), QffNormal)
72 
                          getGroupNodes cfg . groupUuid), QffNormal)
73 73 
  , (FieldDefinition "pinst_cnt" "Instances" QFTNumber
74 74 
       "Number of primary instances",
75 75 
     FieldConfig
76 
       (\cfg -> rsNormal . length . fst . getGroupInstances cfg . groupName),
76 
       (\cfg -> rsNormal . length . fst . getGroupInstances cfg . groupUuid),
77 77 
     QffNormal)
78 78 
  , (FieldDefinition "pinst_list" "InstanceList" QFTOther
79 79 
       "List of primary instances",
80 80 
     FieldConfig (\cfg -> rsNormal . map instName . fst .
81 
                          getGroupInstances cfg . groupName), QffNormal)
81 
                          getGroupInstances cfg . groupUuid), QffNormal)
82 82 
  ] ++
83 83 
  map buildNdParamField allNDParamFields ++
84 84 
  timeStampFields ++

Also available in: Unified diff