Revision 509809db htools/Ganeti/HTools/CLI.hs
| b/htools/Ganeti/HTools/CLI.hs | ||
|---|---|---|
| 67 | 67 |
, oPrintNodes |
| 68 | 68 |
, oQuiet |
| 69 | 69 |
, oRapiMaster |
| 70 |
, oReplay |
|
| 70 | 71 |
, oSaveCluster |
| 71 | 72 |
, oShowHelp |
| 72 | 73 |
, oShowVer |
| ... | ... | |
| 126 | 127 |
, optShowNodes :: Maybe [String] -- ^ Whether to show node status |
| 127 | 128 |
, optShowVer :: Bool -- ^ Just show the program version |
| 128 | 129 |
, optTieredSpec :: Maybe RSpec -- ^ Requested specs for tiered mode |
| 130 |
, optReplay :: Maybe String -- ^ Unittests: RNG state |
|
| 129 | 131 |
, optVerbose :: Int -- ^ Verbosity level |
| 130 | 132 |
} deriving Show |
| 131 | 133 |
|
| ... | ... | |
| 164 | 166 |
, optShowNodes = Nothing |
| 165 | 167 |
, optShowVer = False |
| 166 | 168 |
, optTieredSpec = Nothing |
| 169 |
, optReplay = Nothing |
|
| 167 | 170 |
, optVerbose = 1 |
| 168 | 171 |
} |
| 169 | 172 |
|
| ... | ... | |
| 381 | 384 |
"TSPEC") |
| 382 | 385 |
"enable tiered specs allocation, given as 'disk,ram,cpu'" |
| 383 | 386 |
|
| 387 |
oReplay :: OptType |
|
| 388 |
oReplay = Option "" ["replay"] |
|
| 389 |
(ReqArg (\ stat opts -> Ok opts { optReplay = Just stat } ) "STATE")
|
|
| 390 |
"Pre-seed the random number generator with STATE" |
|
| 391 |
|
|
| 384 | 392 |
oVerbose :: OptType |
| 385 | 393 |
oVerbose = Option "v" ["verbose"] |
| 386 | 394 |
(NoArg (\ opts -> Ok opts { optVerbose = optVerbose opts + 1 }))
|
Also available in: Unified diff