Revision 319322a7 htools/Ganeti/Query/Node.hs

b/htools/Ganeti/Query/Node.hs
223 223 
maybeCollectLiveData True cfg nodes = do
224 224 
  let vgs = [clusterVolumeGroupName $ configCluster cfg]
225 225 
      hvs = [getDefaultHypervisor cfg]
226 
  executeRpcCall nodes (RpcCallNodeInfo vgs hvs)
226 
      step n (bn, gn, em) =
227 
        let ndp' = getNodeNdParams cfg n
228 
        in case ndp' of
229 
             Just ndp -> (bn, n : gn,
230 
                          (nodeName n, ndpExclusiveStorage ndp) : em)
231 
             Nothing -> (n : bn, gn, em)
232 
      (bnodes, gnodes, emap) = foldr step ([], [], []) nodes
233 
  rpcres <- executeRpcCall gnodes (RpcCallNodeInfo vgs hvs (Map.fromList emap))
234 
  -- FIXME: The order of nodes in the result could be different from the input
235 
  return $ zip bnodes (repeat $ Left (RpcResultError "Broken configuration"))
236 
           ++ rpcres

Also available in: Unified diff