This option will tell htools to use state-of-record data instead of
live ("state of world") data. A difference between the two occurs,
e.g., if an instance is resized but not rebooted.

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

diff --git a/src/Ganeti/HTools/CLI.hs b/src/Ganeti/HTools/CLI.hs
index 232f66a..b153d82 100644
--- a/src/Ganeti/HTools/CLI.hs
+++ b/src/Ganeti/HTools/CLI.hs
@@ -112,6 +112,7 @@ module Ganeti.HTools.CLI
   , oShowVer
   , oShowComp
   , oSkipNonRedundant
+  , oSoR
   , oStdSpec
   , oTargetResources
   , oTieredSpec
@@ -154,6 +155,7 @@ data Options = Options
   , optIgnoreSoftErrors :: Bool      -- ^ Ignore soft errors in balancing moves
   , optIndependentGroups :: Bool     -- ^ consider groups independently
   , optAcceptExisting :: Bool        -- ^ accept existing N+1 violations
+  , optSoR         :: Bool           -- ^ only use state-of-record data
   , optMonD        :: Bool           -- ^ Query MonDs
   , optMonDFile    :: Maybe FilePath -- ^ Optional file with data provided
                                      -- by MonDs
@@ -229,6 +231,7 @@ defaultOptions  = Options
   , optIgnoreDynu  = False
   , optIgnoreSoftErrors = False
   , optDynuFile    = Nothing
+  , optSoR         = False
   , optMonD        = False
   , optMonDFile = Nothing
   , optMonDXen     = False
@@ -375,6 +378,13 @@ oMonDXen =
     "also consider xen-specific collectors in MonD queries",
     OptComplNone)
 
+oSoR :: OptType
+oSoR =
+  (Option "" ["state-of-record"]
+    (NoArg (\ opts -> Ok opts { optSoR = True }))
+    "only use state-of-record data",
+    OptComplNone)
+
 oMonDExitMissing :: OptType
 oMonDExitMissing =
   (Option "" ["exit-on-missing-mond-data"]
-- 
2.6.0.rc2.230.g3dd15c0

Reply via email to