Revision 10f396e1

b/Ganeti/HTools/CLI.hs
37 37 
    , oDiskMoves
38 38 
    , oDynuFile
39 39 
    , oEvacMode
40 
    , oExInst
40 41 
    , oExTags
41 42 
    , oExecJobs
42 43 
    , oIDisk
......
87 88 
    , optDiskMoves   :: Bool           -- ^ Allow disk moves
88 89 
    , optDynuFile    :: Maybe FilePath -- ^ Optional file with dynamic use data
89 90 
    , optEvacMode    :: Bool           -- ^ Enable evacuation mode
91 
    , optExInst      :: [String]       -- ^ Instances to be excluded
90 92 
    , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
91 93 
    , optExecJobs    :: Bool           -- ^ Execute the commands via Luxi
92 94 
    , optINodes      :: Int            -- ^ Nodes required for an instance
......
118 120 
 , optDiskMoves   = True
119 121 
 , optDynuFile    = Nothing
120 122 
 , optEvacMode    = False
123 
 , optExInst      = []
121 124 
 , optExTags      = Nothing
122 125 
 , optExecJobs    = False
123 126 
 , optINodes      = 2
......
167 170 
            "enable evacuation mode, where the algorithm only moves \
168 171 
            \ instances away from offline and drained nodes"
169 172 

  		





  
  173
  
    
oExInst :: OptType


  		





  
  174
  
    
oExInst = Option "" ["exclude-instances"]


  		





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


  		





  
  176
  
    
          "exclude given instances  from any moves"


  		





  
  177
  
    

  		





  170
  178
  
    
oExTags :: OptType


  		





  171
  179
  
    
oExTags = Option "" ["exclusion-tags"]


  		





  172
  180
  
    
            (ReqArg (\ f opts -> Ok opts { optExTags = Just $ sepSplit ',' f })


  		












Also available in:
  Unified diff