Revision 9cf4267a Ganeti/HTools/Node.hs

b/Ganeti/HTools/Node.hs
148 148 
computeMaxRes new_peers = PeerMap.maxElem new_peers
149 149 

  		





  150
  150
  
    
-- | Builds the peer map for a given node.


  		





  151
  
  
    
buildPeers :: Node -> Instance.List -> Int -> Node


  		





  152
  
  
    
buildPeers t il num_nodes =


  		





  
  151
  
    
buildPeers :: Node -> Instance.List -> Node


  		





  
  152
  
    
buildPeers t il =


  		





  153
  153
  
    
    let mdata = map


  		





  154
  154
  
    
                (\i_idx -> let inst = Container.find i_idx il


  		





  155
  155
  
    
                           in (Instance.pnode inst, Instance.mem inst))


  		












Also available in:
  Unified diff