Revision ee4ffc8a htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
74 74 
  , oShowHelp
75 75 
  , oShowVer
76 76 
  , oStdSpec
77 
  , oTestCount
77 78 
  , oTieredSpec
78 79 
  , oVerbose
79 80 
  ) where
......
138 139 
  , optShowNodes   :: Maybe [String] -- ^ Whether to show node status
139 140 
  , optShowVer     :: Bool           -- ^ Just show the program version
140 141 
  , optStdSpec     :: Maybe RSpec    -- ^ Requested standard specs
142 
  , optTestCount   :: Maybe Int      -- ^ Optional test count override
141 143 
  , optTieredSpec  :: Maybe RSpec    -- ^ Requested specs for tiered mode
142 144 
  , optReplay      :: Maybe String   -- ^ Unittests: RNG state
143 145 
  , optVerbose     :: Int            -- ^ Verbosity level
......
177 179 
  , optShowNodes   = Nothing
178 180 
  , optShowVer     = False
179 181 
  , optStdSpec     = Nothing
182 
  , optTestCount   = Nothing
180 183 
  , optTieredSpec  = Nothing
181 184 
  , optReplay      = Nothing
182 185 
  , optVerbose     = 1
......
397 400 
              "STDSPEC")
398 401 
             "enable standard specs allocation, given as 'disk,ram,cpu'"
399 402 

  		





  
  403
  
    
oTestCount :: OptType


  		





  
  404
  
    
oTestCount = Option "" ["test-count"]


  		





  
  405
  
    
             (ReqArg (\ inp opts -> do


  		





  
  406
  
    
                        tcount <- tryRead "parsing test count" inp


  		





  
  407
  
    
                        return $ opts { optTestCount = Just tcount } )


  		





  
  408
  
    
              "COUNT")


  		





  
  409
  
    
             "override the target test count"


  		





  
  410
  
    

  		





  400
  411
  
    
oTieredSpec :: OptType


  		





  401
  412
  
    
oTieredSpec = Option "" ["tiered-alloc"]


  		





  402
  413
  
    
             (ReqArg (\ inp opts -> do


  		












Also available in:
  Unified diff