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