Revision ddef0585 htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
38 38 
    -- * The options
39 39 
    , oDataFile
40 40 
    , oDiskMoves
41 
    , oSelInst
41 42 
    , oInstMoves
42 43 
    , oDynuFile
43 44 
    , oEvacMode
......
102 103 
    , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
103 104 
    , optExecJobs    :: Bool           -- ^ Execute the commands via Luxi
104 105 
    , optGroup       :: Maybe GroupID  -- ^ The UUID of the group to process
106 
    , optSelInst     :: [String]       -- ^ Instances to be excluded
105 107 
    , optINodes      :: Int            -- ^ Nodes required for an instance
106 108 
    , optISpec       :: RSpec          -- ^ Requested instance specs
107 109 
    , optLuxi        :: Maybe FilePath -- ^ Collect data from Luxi
......
139 141 
 , optExTags      = Nothing
140 142 
 , optExecJobs    = False
141 143 
 , optGroup       = Nothing
144 
 , optSelInst     = []
142 145 
 , optINodes      = 2
143 146 
 , optISpec       = RSpec 1 4096 102400
144 147 
 , optLuxi        = Nothing
......
178 181 
             "disallow disk moves from the list of allowed instance changes,\
179 182 
             \ thus allowing only the 'cheap' failover/migrate operations"
180 183 

  		





  
  184
  
    
oSelInst :: OptType


  		





  
  185
  
    
oSelInst = Option "" ["select-instances"]


  		





  
  186
  
    
          (ReqArg (\ f opts -> Ok opts { optSelInst = sepSplit ',' f }) "INSTS")


  		





  
  187
  
    
          "only select given instances for any moves"


  		





  
  188
  
    

  		





  181
  189
  
    
oInstMoves :: OptType


  		





  182
  190
  
    
oInstMoves = Option "" ["no-instance-moves"]


  		





  183
  191
  
    
             (NoArg (\ opts -> Ok opts { optInstMoves = False}))


  		












Also available in:
  Unified diff