Revision da4a52a3 src/Ganeti/Query/Node.hs

b/src/Ganeti/Query/Node.hs
184 184 
  , (FieldDefinition "pinst_cnt" "Pinst" QFTNumber
185 185 
       "Number of instances with this node as primary",
186 186 
     FieldConfig (\cfg ->
187 
                    rsNormal . length . fst . getNodeInstances cfg . nodeName),
187 
                    rsNormal . length . fst . getNodeInstances cfg . nodeUuid),
188 188 
     QffNormal)
189 189 
  , (FieldDefinition "sinst_cnt" "Sinst" QFTNumber
190 190 
       "Number of instances with this node as secondary",
191 191 
     FieldConfig (\cfg ->
192 
                    rsNormal . length . snd . getNodeInstances cfg . nodeName),
192 
                    rsNormal . length . snd . getNodeInstances cfg . nodeUuid),
193 193 
     QffNormal)
194 194 
  , (FieldDefinition "pinst_list" "PriInstances" QFTOther
195 195 
       "List of instances with this node as primary",
196 196 
     FieldConfig (\cfg -> rsNormal . niceSort . map instName . fst .
197 
                          getNodeInstances cfg . nodeName), QffNormal)
197 
                          getNodeInstances cfg . nodeUuid), QffNormal)
198 198 
  , (FieldDefinition "sinst_list" "SecInstances" QFTOther
199 199 
       "List of instances with this node as secondary",
200 200 
     FieldConfig (\cfg -> rsNormal . niceSort . map instName . snd .
201 
                          getNodeInstances cfg . nodeName), QffNormal)
201 
                          getNodeInstances cfg . nodeUuid), QffNormal)
202 202 
  , (FieldDefinition "role" "Role" QFTText nodeRoleDoc,
203 203 
     FieldConfig ((rsNormal .) . getNodeRole), QffNormal)
204 204 
  , (FieldDefinition "powered" "Powered" QFTBool

Also available in: Unified diff