From bef83fd1972100aca9f4e2acb6e82d6524e7d168 Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Tue, 5 Jul 2011 23:32:19 +0200
Subject: [PATCH] htools: add node-evacuate of DRBD8 primaries
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
htools/Ganeti/HTools/Cluster.hs | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/htools/Ganeti/HTools/Cluster.hs b/htools/Ganeti/HTools/Cluster.hs
index 77bfeb336..c725fdf2f 100644
--- a/htools/Ganeti/HTools/Cluster.hs
+++ b/htools/Ganeti/HTools/Cluster.hs
@@ -909,6 +909,15 @@ nodeEvacInstance _ _ mode (Instance.Instance
failOnSecondaryChange mode dt >>
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
{Instance.diskTemplate = DTDrbd8}) _ =
fail "DRBD relocations not implemented yet"
--
GitLab