Revision 962367fe src/Cluster.hs

b/src/Cluster.hs
125 125 
totalResources :: Container.Container Node.Node -> (Int, Int)
126 126 
totalResources nl =
127 127 
    foldl'
128 
    (\ (mem, disk) node -> (mem + (Node.f_mem node),
129 
                            disk + (Node.f_disk node)))
128 
    (\ (mem, dsk) node -> (mem + (Node.f_mem node),
129 
                           dsk + (Node.f_dsk node)))
130 130 
    (0, 0) (Container.elems nl)
131 131 

  		





  132
  132
  
    
{- | Compute a new version of a cluster given a solution.


  		












Also available in:
  Unified diff