Revision dce9bbb3 htools/Ganeti/HTools/Cluster.hs
| b/htools/Ganeti/HTools/Cluster.hs | ||
|---|---|---|
| 1161 | 1161 |
iterateAlloc nl il limit newinst allocnodes ixes cstats = |
| 1162 | 1162 |
let depth = length ixes |
| 1163 | 1163 |
newname = printf "new-%d" depth::String |
| 1164 |
newidx = Container.size il + depth
|
|
| 1164 |
newidx = Container.size il |
|
| 1165 | 1165 |
newi2 = Instance.setIdx (Instance.setName newinst newname) newidx |
| 1166 | 1166 |
newlimit = fmap (flip (-) 1) limit |
| 1167 | 1167 |
in case tryAlloc nl il newi2 allocnodes of |
Also available in: Unified diff