Revision c62bec27 src/Ganeti/HTools/CLI.hs

b/src/Ganeti/HTools/CLI.hs
49 49
  , oSpindleUse
50 50
  , oDynuFile
51 51
  , oMonD
52
  , oMonDDataFile
52 53
  , oEvacMode
53 54
  , oExInst
54 55
  , oExTags
......
125 126
  , optDynuFile    :: Maybe FilePath -- ^ Optional file with dynamic use data
126 127
  , optIgnoreDynu  :: Bool           -- ^ Do not use dynamic use data
127 128
  , optMonD        :: Bool           -- ^ Query MonDs
129
  , optMonDFile    :: Maybe FilePath -- ^ Optional file with data provided
130
                                     -- ^ by MonDs
128 131
  , optEvacMode    :: Bool           -- ^ Enable evacuation mode
129 132
  , optExInst      :: [String]       -- ^ Instances to be excluded
130 133
  , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
......
181 184
  , optIgnoreDynu  = False
182 185
  , optDynuFile    = Nothing
183 186
  , optMonD        = False
187
  , optMonDFile = Nothing
184 188
  , optEvacMode    = False
185 189
  , optExInst      = []
186 190
  , optExTags      = Nothing
......
290 294
   "Query MonDs",
291 295
   OptComplNone)
292 296

  
297
oMonDDataFile :: OptType
298
oMonDDataFile =
299
  (Option "" ["mond-data"]
300
   (ReqArg (\ f opts -> Ok opts { optMonDFile = Just f }) "FILE")
301
   "Import data provided by MonDs from the given FILE",
302
   OptComplFile)
303

  
293 304
oDiskTemplate :: OptType
294 305
oDiskTemplate =
295 306
  (Option "" ["disk-template"]

Also available in: Unified diff