Revision 097ad7ee htools/Ganeti/HTools/CLI.hs
b/htools/Ganeti/HTools/CLI.hs | ||
---|---|---|
77 | 77 |
, oSelInst |
78 | 78 |
, oShowHelp |
79 | 79 |
, oShowVer |
80 |
, oShowComp |
|
80 | 81 |
, oStdSpec |
81 | 82 |
, oTieredSpec |
82 | 83 |
, oVerbose |
... | ... | |
132 | 133 |
, optSaveCluster :: Maybe FilePath -- ^ Save cluster state to this file |
133 | 134 |
, optShowCmds :: Maybe FilePath -- ^ Whether to show the command list |
134 | 135 |
, optShowHelp :: Bool -- ^ Just show the help |
136 |
, optShowComp :: Bool -- ^ Just show the completion info |
|
135 | 137 |
, optShowInsts :: Bool -- ^ Whether to show the instance map |
136 | 138 |
, optShowNodes :: Maybe [String] -- ^ Whether to show node status |
137 | 139 |
, optShowVer :: Bool -- ^ Just show the program version |
... | ... | |
175 | 177 |
, optSaveCluster = Nothing |
176 | 178 |
, optShowCmds = Nothing |
177 | 179 |
, optShowHelp = False |
180 |
, optShowComp = False |
|
178 | 181 |
, optShowInsts = False |
179 | 182 |
, optShowNodes = Nothing |
180 | 183 |
, optShowVer = False |
... | ... | |
191 | 194 |
instance StandardOptions Options where |
192 | 195 |
helpRequested = optShowHelp |
193 | 196 |
verRequested = optShowVer |
197 |
compRequested = optShowComp |
|
194 | 198 |
requestHelp o = o { optShowHelp = True } |
195 | 199 |
requestVer o = o { optShowVer = True } |
200 |
requestComp o = o { optShowComp = True } |
|
196 | 201 |
|
197 | 202 |
-- * Helper functions |
198 | 203 |
|
... | ... | |
512 | 517 |
genericOpts :: [GenericOptType Options] |
513 | 518 |
genericOpts = [ oShowVer |
514 | 519 |
, oShowHelp |
520 |
, oShowComp |
|
515 | 521 |
] |
516 | 522 |
|
517 | 523 |
-- * Functions |
Also available in: Unified diff