Revision 7dbe4c72 src/Ganeti/HTools/CLI.hs

b/src/Ganeti/HTools/CLI.hs
52 52 
  , oExInst
53 53 
  , oExTags
54 54 
  , oExecJobs
55 
  , oForce
55 56 
  , oGroup
56 57 
  , oIAllocSrc
57 58 
  , oInstMoves
......
117 118 
  , optExInst      :: [String]       -- ^ Instances to be excluded
118 119 
  , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
119 120 
  , optExecJobs    :: Bool           -- ^ Execute the commands via Luxi
121 
  , optForce       :: Bool           -- ^ Force the execution
120 122 
  , optGroup       :: Maybe GroupID  -- ^ The UUID of the group to process
121 123 
  , optIAllocSrc   :: Maybe FilePath -- ^ The iallocation spec
122 124 
  , optSelInst     :: [String]       -- ^ Instances to be excluded
......
163 165 
  , optExInst      = []
164 166 
  , optExTags      = Nothing
165 167 
  , optExecJobs    = False
168 
  , optForce       = False
166 169 
  , optGroup       = Nothing
167 170 
  , optIAllocSrc   = Nothing
168 171 
  , optSelInst     = []
......
319 322 
   \ it for data gathering)",
320 323 
   OptComplNone)
321 324 

  		





  
  325
  
    
oForce :: OptType


  		





  
  326
  
    
oForce =


  		





  
  327
  
    
  (Option "f" ["force"]


  		





  
  328
  
    
   (NoArg (\ opts -> Ok opts {optForce = True}))


  		





  
  329
  
    
   "force the execution of this program, even if warnings would\


  		





  
  330
  
    
   \ otherwise prevent it",


  		





  
  331
  
    
   OptComplNone)


  		





  
  332
  
    

  		





  322
  333
  
    
oGroup :: OptType


  		





  323
  334
  
    
oGroup =


  		





  324
  335
  
    
  (Option "G" ["group"]


  		












Also available in:
  Unified diff