Revision c32c4e4d src/Ganeti/HTools/CLI.hs

b/src/Ganeti/HTools/CLI.hs
48 48 
  , oDiskTemplate
49 49 
  , oSpindleUse
50 50 
  , oDynuFile
51 
  , oMonD
51 52 
  , oEvacMode
52 53 
  , oExInst
53 54 
  , oExTags
......
123 124 
  , optSpindleUse  :: Maybe Int      -- ^ Override for the spindle usage
124 125 
  , optDynuFile    :: Maybe FilePath -- ^ Optional file with dynamic use data
125 126 
  , optIgnoreDynu  :: Bool           -- ^ Do not use dynamic use data
127 
  , optMonD        :: Bool           -- ^ Query MonDs
126 128 
  , optEvacMode    :: Bool           -- ^ Enable evacuation mode
127 129 
  , optExInst      :: [String]       -- ^ Instances to be excluded
128 130 
  , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
......
178 180 
  , optSpindleUse  = Nothing
179 181 
  , optIgnoreDynu  = False
180 182 
  , optDynuFile    = Nothing
183 
  , optMonD        = False
181 184 
  , optEvacMode    = False
182 185 
  , optExInst      = []
183 186 
  , optExTags      = Nothing
......
280 283 
   \ thus allowing only the 'cheap' failover/migrate operations",
281 284 
   OptComplNone)
282 285 

  		





  
  286
  
    
oMonD :: OptType


  		





  
  287
  
    
oMonD =


  		





  
  288
  
    
  (Option "" ["mond"]


  		





  
  289
  
    
   (NoArg (\ opts -> Ok opts {optMonD = True}))


  		





  
  290
  
    
   "Query MonDs",


  		





  
  291
  
    
   OptComplNone)


  		





  
  292
  
    

  		





  283
  293
  
    
oDiskTemplate :: OptType


  		





  284
  294
  
    
oDiskTemplate =


  		





  285
  295
  
    
  (Option "" ["disk-template"]


  		












Also available in:
  Unified diff