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