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