Revision 5a13489b src/Ganeti/HTools/Cluster.hs
b/src/Ganeti/HTools/Cluster.hs | ||
---|---|---|
489 | 489 |
let p = Container.find new_pdx nl |
490 | 490 |
new_inst = Instance.setBoth inst new_pdx Node.noSecondary |
491 | 491 |
in do |
492 |
Instance.instMatchesPolicy inst (Node.iPolicy p) |
|
492 |
Instance.instMatchesPolicy inst (Node.iPolicy p) (Node.exclStorage p)
|
|
493 | 493 |
new_p <- Node.addPri p inst |
494 | 494 |
let new_nl = Container.add new_pdx new_p nl |
495 | 495 |
new_score = compCV new_nl |
... | ... | |
503 | 503 |
tgt_s = Container.find new_sdx nl |
504 | 504 |
in do |
505 | 505 |
Instance.instMatchesPolicy inst (Node.iPolicy tgt_p) |
506 |
(Node.exclStorage tgt_p) |
|
506 | 507 |
new_p <- Node.addPri tgt_p inst |
507 | 508 |
new_s <- Node.addSec tgt_s inst new_pdx |
508 | 509 |
let new_inst = Instance.setBoth inst new_pdx new_sdx |
Also available in: Unified diff