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