Revision 23247a73 src/Ganeti/HTools/CLI.hs

b/src/Ganeti/HTools/CLI.hs
55 55
  , oForce
56 56
  , oGroup
57 57
  , oIAllocSrc
58
  , oIgnoreNonRedundant
58 59
  , oInstMoves
59 60
  , oJobDelay
60 61
  , genOLuxiSocket
......
125 126
  , optForce       :: Bool           -- ^ Force the execution
126 127
  , optGroup       :: Maybe GroupID  -- ^ The UUID of the group to process
127 128
  , optIAllocSrc   :: Maybe FilePath -- ^ The iallocation spec
129
  , optIgnoreNonRedundant :: Bool    -- ^ Ignore non-redundant instances
128 130
  , optSelInst     :: [String]       -- ^ Instances to be excluded
129 131
  , optLuxi        :: Maybe FilePath -- ^ Collect data from Luxi
130 132
  , optJobDelay    :: Double         -- ^ Delay before executing first job
......
176 178
  , optForce       = False
177 179
  , optGroup       = Nothing
178 180
  , optIAllocSrc   = Nothing
181
  , optIgnoreNonRedundant = False
179 182
  , optSelInst     = []
180 183
  , optLuxi        = Nothing
181 184
  , optJobDelay    = 10
......
356 359
   "Specify an iallocator spec as the cluster data source",
357 360
   OptComplFile)
358 361

  
362
oIgnoreNonRedundant :: OptType
363
oIgnoreNonRedundant =
364
  (Option "" ["ignore-non-redundant"]
365
   (NoArg (\ opts -> Ok opts { optIgnoreNonRedundant = True }))
366
    "Pretend that there are no non-redundant instances in the cluster",
367
    OptComplNone)
368

  
359 369
oJobDelay :: OptType
360 370
oJobDelay =
361 371
  (Option "" ["job-delay"]

Also available in: Unified diff