Revision 3603605a htools/Ganeti/HTools/Node.hs
b/htools/Ganeti/HTools/Node.hs | ||
---|---|---|
328 | 328 |
removeSec :: Node -> Instance.Instance -> Node |
329 | 329 |
removeSec t inst = |
330 | 330 |
let iname = Instance.idx inst |
331 |
uses_disk = Instance.usesLocalStorage inst |
|
332 | 331 |
cur_dsk = fDsk t |
333 | 332 |
pnode = Instance.pNode inst |
334 | 333 |
new_slist = delete iname (sList t) |
335 |
new_dsk = if uses_disk
|
|
334 |
new_dsk = if Instance.usesLocalStorage inst
|
|
336 | 335 |
then cur_dsk + Instance.dsk inst |
337 | 336 |
else cur_dsk |
338 | 337 |
old_peers = peers t |
Also available in: Unified diff