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