Revision 368e95fd

b/src/Ganeti/Config.hs
119 119 
-- | Computes the role of a node.
120 120 
getNodeRole :: ConfigData -> Node -> NodeRole
121 121 
getNodeRole cfg node
122 
  | nodeName node == clusterMasterNode (configCluster cfg) = NRMaster
122 
  | nodeUuid node == clusterMasterNode (configCluster cfg) = NRMaster
123 123 
  | nodeMasterCandidate node = NRCandidate
124 124 
  | nodeDrained node = NRDrained
125 125 
  | nodeOffline node = NROffline
b/src/Ganeti/Query/Node.hs
200 200 
     FieldSimple (rsNormal . nodeSecondaryIp), QffNormal)
201 201 
  , (FieldDefinition "master" "IsMaster" QFTBool "Whether node is master",
202 202 
     FieldConfig (\cfg node ->
203 
                    rsNormal (nodeName node ==
203 
                    rsNormal (nodeUuid node ==
204 204 
                              clusterMasterNode (configCluster cfg))),
205 205 
     QffNormal)
206 206 
  , (FieldDefinition "group" "Group" QFTText "Node group",

Also available in: Unified diff