Revision d85a0a0f Ganeti/HTools/Cluster.hs

b/Ganeti/HTools/Cluster.hs
117 117 
    (bad_nodes, bad_instances)
118 118 

  		





  119
  119
  
    
-- | Compute the total free disk and memory in the cluster.


  		





  120
  
  
    
totalResources :: Container.Container Node.Node -> (Int, Int)


  		





  
  120
  
    
totalResources :: Node.List -> (Int, Int)


  		





  121
  121
  
    
totalResources nl =


  		





  122
  122
  
    
    foldl'


  		





  123
  123
  
    
    (\ (mem, dsk) node -> (mem + (Node.f_mem node),


  		












Also available in:
  Unified diff