From 23594127c6768a51df1c65a1145f8ff6c2dd812f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dato=20Sim=C3=B3?= <dato@google.com>
Date: Fri, 7 Dec 2012 10:19:37 +0000
Subject: [PATCH] Instance.hs: add an 'arPolicy' field for auto-repair policy
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
Signed-off-by: Dato SimΓ³ <dato@google.com>
Reviewed-by: Iustin Pop <iustin@google.com>
---
src/Ganeti/HTools/Instance.hs | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/Ganeti/HTools/Instance.hs b/src/Ganeti/HTools/Instance.hs
index d1c67ee45..9c20af1b2 100644
--- a/src/Ganeti/HTools/Instance.hs
+++ b/src/Ganeti/HTools/Instance.hs
@@ -83,6 +83,7 @@ data Instance = Instance
, spindleUse :: Int -- ^ The numbers of used spindles
, allTags :: [String] -- ^ List of all instance tags
, exclTags :: [String] -- ^ List of instance exclusion tags
+ , arPolicy :: T.AutoRepairPolicy -- ^ Instance's auto-repair policy
} deriving (Show, Eq)
instance T.Element Instance where
@@ -182,6 +183,7 @@ create name_init mem_init dsk_init vcpus_init run_init tags_init
, spindleUse = su
, allTags = tags_init
, exclTags = []
+ , arPolicy = T.ArNotEnabled
}
-- | Changes the index.
--
GitLab