Revision 8af72964 src/Ganeti/HTools/CLI.hs
b/src/Ganeti/HTools/CLI.hs | ||
---|---|---|
55 | 55 |
, oGroup |
56 | 56 |
, oIAllocSrc |
57 | 57 |
, oInstMoves |
58 |
, oJobDelay |
|
58 | 59 |
, genOLuxiSocket |
59 | 60 |
, oLuxiSocket |
60 | 61 |
, oMachineReadable |
... | ... | |
118 | 119 |
, optIAllocSrc :: Maybe FilePath -- ^ The iallocation spec |
119 | 120 |
, optSelInst :: [String] -- ^ Instances to be excluded |
120 | 121 |
, optLuxi :: Maybe FilePath -- ^ Collect data from Luxi |
122 |
, optJobDelay :: Double -- ^ Delay before executing first job |
|
121 | 123 |
, optMachineReadable :: Bool -- ^ Output machine-readable format |
122 | 124 |
, optMaster :: String -- ^ Collect data from RAPI |
123 | 125 |
, optMaxLength :: Int -- ^ Stop after this many steps |
... | ... | |
162 | 164 |
, optIAllocSrc = Nothing |
163 | 165 |
, optSelInst = [] |
164 | 166 |
, optLuxi = Nothing |
167 |
, optJobDelay = 10 |
|
165 | 168 |
, optMachineReadable = False |
166 | 169 |
, optMaster = "" |
167 | 170 |
, optMaxLength = -1 |
... | ... | |
326 | 329 |
"Specify an iallocator spec as the cluster data source", |
327 | 330 |
OptComplFile) |
328 | 331 |
|
332 |
oJobDelay :: OptType |
|
333 |
oJobDelay = |
|
334 |
(Option "" ["job-delay"] |
|
335 |
(reqWithConversion (tryRead "job delay") |
|
336 |
(\d opts -> Ok opts { optJobDelay = d }) "SECONDS") |
|
337 |
"insert this much delay before the execution of repair jobs\ |
|
338 |
\ to allow the tool to continue processing instances", |
|
339 |
OptComplFloat) |
|
340 |
|
|
329 | 341 |
genOLuxiSocket :: String -> OptType |
330 | 342 |
genOLuxiSocket defSocket = |
331 | 343 |
(Option "L" ["luxi"] |
Also available in: Unified diff