From d254d6ce98228e7b5d2d5181ae836be27d88fadc Mon Sep 17 00:00:00 2001
From: Iustin Pop <iustin@google.com>
Date: Thu, 7 Jul 2011 15:45:05 +0200
Subject: [PATCH] htools: add function for getting all nodes of an instance
Signed-off-by: Iustin Pop <iustin@google.com>
Reviewed-by: Guido Trotter <ultrotter@google.com>
---
htools/Ganeti/HTools/Instance.hs | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/htools/Ganeti/HTools/Instance.hs b/htools/Ganeti/HTools/Instance.hs
index 873275595..4f8d5f56a 100644
--- a/htools/Ganeti/HTools/Instance.hs
+++ b/htools/Ganeti/HTools/Instance.hs
@@ -42,6 +42,7 @@ module Ganeti.HTools.Instance
, shrinkByType
, runningStates
, requiredNodes
+ , allNodes
) where
import qualified Ganeti.HTools.Types as T
@@ -189,3 +190,9 @@ specOf Instance { mem = m, dsk = d, vcpus = c } =
requiredNodes :: T.DiskTemplate -> Int
requiredNodes T.DTDrbd8 = 2
requiredNodes _ = 1
+
+-- | Computes all nodes of an instance.
+allNodes :: Instance -> [T.Ndx]
+allNodes inst = case diskTemplate inst of
+ T.DTDrbd8 -> [pNode inst, sNode inst]
+ _ -> [pNode inst]
--
GitLab