Revision 7959cbb9 htools/Ganeti/HTools/Node.hs
| b/htools/Ganeti/HTools/Node.hs | ||
|---|---|---|
| 348 | 348 |
removePri :: Node -> Instance.Instance -> Node |
| 349 | 349 |
removePri t inst = |
| 350 | 350 |
let iname = Instance.idx inst |
| 351 |
i_online = Instance.instanceNotOffline inst
|
|
| 351 |
i_online = Instance.notOffline inst
|
|
| 352 | 352 |
uses_disk = Instance.usesLocalStorage inst |
| 353 | 353 |
new_plist = delete iname (pList t) |
| 354 | 354 |
new_mem = incIf i_online (fMem t) (Instance.mem inst) |
| ... | ... | |
| 409 | 409 |
-- or a failure mode |
| 410 | 410 |
addPriEx force t inst = |
| 411 | 411 |
let iname = Instance.idx inst |
| 412 |
i_online = Instance.instanceNotOffline inst
|
|
| 412 |
i_online = Instance.notOffline inst
|
|
| 413 | 413 |
uses_disk = Instance.usesLocalStorage inst |
| 414 | 414 |
cur_dsk = fDsk t |
| 415 | 415 |
new_mem = decIf i_online (fMem t) (Instance.mem inst) |
Also available in: Unified diff