Revision 4f807a57 Ganeti/HTools/CLI.hs

b/Ganeti/HTools/CLI.hs
49 49 
    , oMaxCpu
50 50 
    , oMaxSolLength
51 51 
    , oMinDisk
52 
    , oMinGain
53 
    , oMinGainLim
52 54 
    , oMinScore
53 55 
    , oNoHeaders
54 56 
    , oNodeSim
......
100 102 
    , optMaxLength   :: Int            -- ^ Stop after this many steps
101 103 
    , optMcpu        :: Double         -- ^ Max cpu ratio for nodes
102 104 
    , optMdsk        :: Double         -- ^ Max disk usage ratio for nodes
105 
    , optMinGain     :: Score          -- ^ Min gain we aim for in a step
106 
    , optMinGainLim  :: Score          -- ^ Limit below which we apply mingain
103 107 
    , optMinScore    :: Score          -- ^ The minimum score we aim for
104 108 
    , optNoHeaders   :: Bool           -- ^ Do not show a header line
105 109 
    , optNodeSim     :: Maybe String   -- ^ Cluster simulation mode
......
133 137 
 , optMaxLength   = -1
134 138 
 , optMcpu        = defVcpuRatio
135 139 
 , optMdsk        = defReservedDiskRatio
140 
 , optMinGain     = 1e-2
141 
 , optMinGainLim  = 1e-1
136 142 
 , optMinScore    = 1e-9
137 143 
 , optNoHeaders   = False
138 144 
 , optNodeSim     = Nothing
......
242 248 
           (ReqArg (\ n opts -> Ok opts { optMdsk = read n }) "RATIO")
243 249 
           "minimum free disk space for nodes (between 0 and 1) [0]"
244 250 

  		





  
  251
  
    
oMinGain :: OptType


  		





  
  252
  
    
oMinGain = Option "g" ["min-gain"]


  		





  
  253
  
    
            (ReqArg (\ g opts -> Ok opts { optMinGain = read g }) "DELTA")


  		





  
  254
  
    
            "minimum gain to aim for in a balancing step before giving up"


  		





  
  255
  
    

  		





  
  256
  
    
oMinGainLim :: OptType


  		





  
  257
  
    
oMinGainLim = Option "" ["min-gain-limit"]


  		





  
  258
  
    
            (ReqArg (\ g opts -> Ok opts { optMinGainLim = read g }) "SCORE")


  		





  
  259
  
    
            "minimum cluster score for which we start checking the min-gain"


  		





  
  260
  
    

  		





  245
  261
  
    
oMinScore :: OptType


  		





  246
  262
  
    
oMinScore = Option "e" ["min-score"]


  		





  247
  263
  
    
            (ReqArg (\ e opts -> Ok opts { optMinScore = read e }) "EPSILON")


  		





  248
  
  
    
            " mininum score to aim for"


  		





  
  264
  
    
            "mininum score to aim for"


  		





  249
  265
  
    

  		





  250
  266
  
    
oNoHeaders :: OptType


  		





  251
  267
  
    
oNoHeaders = Option "" ["no-headers"]


  		












Also available in:
  Unified diff