Revision c393abbf

b/src/Ganeti/Query/Node.hs
233 233 
             Nothing -> (n : bn, gn, em)
234 234 
      (bnodes, gnodes, emap) = foldr step ([], [], []) nodes
235 235 
  rpcres <- executeRpcCall gnodes (RpcCallNodeInfo vgs hvs (Map.fromList emap))
236 
  logRpcErrors rpcres
237 236 
  -- FIXME: The order of nodes in the result could be different from the input
238 237 
  return $ zip bnodes (repeat $ Left (RpcResultError "Broken configuration"))
239 238 
           ++ rpcres
b/src/Ganeti/Rpc.hs
231 231 
                Ok r -> return r
232 232 
  -- now parse the replies
233 233 
  let results'' = map (parseHttpReply call) results'
234 
  return $ zip nodes results''
234 
      pairedList = zip nodes results''
235 
  logRpcErrors pairedList
236 
  return pairedList
235 237 

  		





  236
  238
  
    
-- | Helper function that is used to read dictionaries of values.


  		





  237
  239
  
    
sanitizeDictResults :: [(String, J.Result a)] -> ERpcError [(String, a)]


  		












Also available in:
  Unified diff