Signed-off-by: Klaus Aehlig <[email protected]>
---
 src/Ganeti/HTools/AlgorithmParams.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Ganeti/HTools/AlgorithmParams.hs 
b/src/Ganeti/HTools/AlgorithmParams.hs
index 5fe6c46..0b7296d 100644
--- a/src/Ganeti/HTools/AlgorithmParams.hs
+++ b/src/Ganeti/HTools/AlgorithmParams.hs
@@ -51,6 +51,8 @@ data AlgorithmOptions = AlgorithmOptions
   , algEvacMode :: Bool             -- ^ Consider only eavacation moves
   , algMinGain :: Double            -- ^ Minimal gain per balancing step
   , algMinGainLimit :: Double       -- ^ Limit below which minimal gain is used
+  , algCapacity :: Bool             -- ^ Whether to check capacity properties,
+                                    -- like global N+1 redundancy
   }
 
 -- | Obtain the relevant algorithmic option from the commandline options
@@ -63,6 +65,7 @@ fromCLIOptions opts = AlgorithmOptions
   , algEvacMode = CLI.optEvacMode opts
   , algMinGain = CLI.optMinGain opts
   , algMinGainLimit = CLI.optMinGainLim opts
+  , algCapacity = CLI.optCapacity opts
   }
 
 -- | Default options for the balancing algorithm
-- 
2.2.0.rc0.207.ga3a616c

Reply via email to