[PATCH master 4/8] Instance.hs: add an 'arPolicy' field for auto-repair policy

[Dato Simó]

Signed-off-by: Dato Simó <d...@google.com>
---
 htools/Ganeti/HTools/Instance.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/htools/Ganeti/HTools/Instance.hs b/htools/Ganeti/HTools/Instance.hs
index b941df6..388851d 100644
--- a/htools/Ganeti/HTools/Instance.hs
+++ b/htools/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
@@ -181,6 +182,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.
-- 
1.7.12.3-x20-1