Revision c42fbe28 src/Ganeti/Query/Group.hs

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

Also available in: Unified diff