Revision a12b230c src/Ganeti/HTools/CLI.hs

b/src/Ganeti/HTools/CLI.hs
53 53 
  , oExTags
54 54 
  , oExecJobs
55 55 
  , oForce
56 
  , oFullEvacuation
56 57 
  , oGroup
57 58 
  , oIAllocSrc
58 59 
  , oIgnoreNonRedundant
......
125 126 
  , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
126 127 
  , optExecJobs    :: Bool           -- ^ Execute the commands via Luxi
127 128 
  , optForce       :: Bool           -- ^ Force the execution
129 
  , optFullEvacuation :: Bool        -- ^ Fully evacuate nodes to be rebooted
128 130 
  , optGroup       :: Maybe GroupID  -- ^ The UUID of the group to process
129 131 
  , optIAllocSrc   :: Maybe FilePath -- ^ The iallocation spec
130 132 
  , optIgnoreNonRedundant :: Bool    -- ^ Ignore non-redundant instances
......
178 180 
  , optExTags      = Nothing
179 181 
  , optExecJobs    = False
180 182 
  , optForce       = False
183 
  , optFullEvacuation = False
181 184 
  , optGroup       = Nothing
182 185 
  , optIAllocSrc   = Nothing
183 186 
  , optIgnoreNonRedundant = False
......
355 358 
   \ otherwise prevent it",
356 359 
   OptComplNone)
357 360 

  		





  
  361
  
    
oFullEvacuation :: OptType


  		





  
  362
  
    
oFullEvacuation =


  		





  
  363
  
    
  (Option "" ["full-evacuation"]


  		





  
  364
  
    
   (NoArg (\ opts -> Ok opts { optFullEvacuation = True}))


  		





  
  365
  
    
   "fully evacuate the nodes to be rebooted",


  		





  
  366
  
    
   OptComplNone)


  		





  
  367
  
    

  		





  358
  368
  
    
oGroup :: OptType


  		





  359
  369
  
    
oGroup =


  		





  360
  370
  
    
  (Option "G" ["group"]


  		












Also available in:
  Unified diff