Revision f0f21ec4 Ganeti/HTools/CLI.hs

b/Ganeti/HTools/CLI.hs
36 36 
    , oDataFile
37 37 
    , oDiskMoves
38 38 
    , oDynuFile
39 
    , oEvacMode
39 40 
    , oExTags
40 41 
    , oExecJobs
41 42 
    , oIDisk
......
85 86 
    { optDataFile    :: Maybe FilePath -- ^ Path to the cluster data file
86 87 
    , optDiskMoves   :: Bool           -- ^ Allow disk moves
87 88 
    , optDynuFile    :: Maybe FilePath -- ^ Optional file with dynamic use data
89 
    , optEvacMode    :: Bool           -- ^ Enable evacuation mode
88 90 
    , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion
89 91 
    , optExecJobs    :: Bool           -- ^ Execute the commands via Luxi
90 92 
    , optINodes      :: Int            -- ^ Nodes required for an instance
......
115 117 
 { optDataFile    = Nothing
116 118 
 , optDiskMoves   = True
117 119 
 , optDynuFile    = Nothing
120 
 , optEvacMode    = False
118 121 
 , optExTags      = Nothing
119 122 
 , optExecJobs    = False
120 123 
 , optINodes      = 2
......
158 161 
            (ReqArg (\ f opts -> Ok opts { optDynuFile = Just f }) "FILE")
159 162 
            "Import dynamic utilisation data from the given FILE"
160 163 

  		





  
  164
  
    
oEvacMode :: OptType


  		





  
  165
  
    
oEvacMode = Option "E" ["evac-mode"]


  		





  
  166
  
    
            (NoArg (\opts -> Ok opts { optEvacMode = True }))


  		





  
  167
  
    
            "enable evacuation mode, where the algorithm only moves \


  		





  
  168
  
    
            \ instances away from offline and drained nodes"


  		





  
  169
  
    

  		





  161
  170
  
    
oExTags :: OptType


  		





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


  		





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


  		












Also available in:
  Unified diff