Revision a423b510 Ganeti/HTools/CLI.hs
b/Ganeti/HTools/CLI.hs | ||
---|---|---|
41 | 41 |
, oExInst |
42 | 42 |
, oExTags |
43 | 43 |
, oExecJobs |
44 |
, oGroup |
|
44 | 45 |
, oIDisk |
45 | 46 |
, oIMem |
46 | 47 |
, oINodes |
... | ... | |
95 | 96 |
, optExInst :: [String] -- ^ Instances to be excluded |
96 | 97 |
, optExTags :: Maybe [String] -- ^ Tags to use for exclusion |
97 | 98 |
, optExecJobs :: Bool -- ^ Execute the commands via Luxi |
99 |
, optGroup :: Maybe GroupID -- ^ The UUID of the group to process |
|
98 | 100 |
, optINodes :: Int -- ^ Nodes required for an instance |
99 | 101 |
, optISpec :: RSpec -- ^ Requested instance specs |
100 | 102 |
, optLuxi :: Maybe FilePath -- ^ Collect data from Luxi |
... | ... | |
130 | 132 |
, optExInst = [] |
131 | 133 |
, optExTags = Nothing |
132 | 134 |
, optExecJobs = False |
135 |
, optGroup = Nothing |
|
133 | 136 |
, optINodes = 2 |
134 | 137 |
, optISpec = RSpec 1 4096 102400 |
135 | 138 |
, optLuxi = Nothing |
... | ... | |
196 | 199 |
"execute the suggested moves via Luxi (only available when using\ |
197 | 200 |
\ it for data gathering)" |
198 | 201 |
|
202 |
oGroup :: OptType |
|
203 |
oGroup = Option "G" ["group"] |
|
204 |
(ReqArg (\ f o -> Ok o { optGroup = Just f }) "ID") |
|
205 |
"the ID of the group to balance" |
|
206 |
|
|
199 | 207 |
oIDisk :: OptType |
200 | 208 |
oIDisk = Option "" ["disk"] |
201 | 209 |
(ReqArg (\ d opts -> |
Also available in: Unified diff