Revision 22e513e7 htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
62 62
  , oMinGainLim
63 63
  , oMinScore
64 64
  , oNoHeaders
65
  , oNoSimulation
65 66
  , oNodeSim
66 67
  , oOfflineNode
67 68
  , oOutputDir
......
133 134
  , optMinGainLim  :: Score          -- ^ Limit below which we apply mingain
134 135
  , optMinScore    :: Score          -- ^ The minimum score we aim for
135 136
  , optNoHeaders   :: Bool           -- ^ Do not show a header line
137
  , optNoSimulation :: Bool          -- ^ Skip the rebalancing dry-run
136 138
  , optNodeSim     :: [String]       -- ^ Cluster simulation mode
137 139
  , optOffline     :: [String]       -- ^ Names of offline nodes
138 140
  , optOutPath     :: FilePath       -- ^ Path to the output directory
......
175 177
  , optMinGainLim  = 1e-1
176 178
  , optMinScore    = 1e-9
177 179
  , optNoHeaders   = False
180
  , optNoSimulation = False
178 181
  , optNodeSim     = []
179 182
  , optOffline     = []
180 183
  , optOutPath     = "."
......
349 352
             (NoArg (\ opts -> Ok opts { optNoHeaders = True }))
350 353
             "do not show a header line"
351 354

  
355
oNoSimulation :: OptType
356
oNoSimulation = Option "" ["no-simulation"]
357
                (NoArg (\opts -> Ok opts {optNoSimulation = True}))
358
                "do not perform rebalancing simulation"
359

  
352 360
oNodeSim :: OptType
353 361
oNodeSim = Option "" ["simulate"]
354 362
            (ReqArg (\ f o -> Ok o { optNodeSim = f:optNodeSim o }) "SPEC")

Also available in: Unified diff