Commit bef83fd1 authored by Iustin Pop's avatar Iustin Pop
Browse files

htools: add node-evacuate of DRBD8 primaries


Signed-off-by: default avatarIustin Pop <iustin@google.com>
Reviewed-by: default avatarGuido Trotter <ultrotter@google.com>
parent 47eed3f4
...@@ -909,6 +909,15 @@ nodeEvacInstance _ _ mode (Instance.Instance ...@@ -909,6 +909,15 @@ nodeEvacInstance _ _ mode (Instance.Instance
failOnSecondaryChange mode dt >> failOnSecondaryChange mode dt >>
fail "Block device relocations not implemented yet" fail "Block device relocations not implemented yet"
nodeEvacInstance nl il ChangePrimary
inst@(Instance.Instance {Instance.diskTemplate = DTDrbd8}) _ =
do
(nl', inst', _, _) <- opToResult $ applyMove nl inst Failover
let idx = Instance.idx inst
il' = Container.add idx inst' il
ops = iMoveToJob nl' il' idx Failover
return (nl', il', ops)
nodeEvacInstance _ _ _ (Instance.Instance nodeEvacInstance _ _ _ (Instance.Instance
{Instance.diskTemplate = DTDrbd8}) _ = {Instance.diskTemplate = DTDrbd8}) _ =
fail "DRBD relocations not implemented yet" fail "DRBD relocations not implemented yet"
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment