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