Revision be468da0 htools/Ganeti/HTools/CLI.hs

b/htools/Ganeti/HTools/CLI.hs
134 134 
  , optShowInsts   :: Bool           -- ^ Whether to show the instance map
135 135 
  , optShowNodes   :: Maybe [String] -- ^ Whether to show node status
136 136 
  , optShowVer     :: Bool           -- ^ Just show the program version
137 
  , optStdSpec     :: RSpec          -- ^ Requested standard specs
137 
  , optStdSpec     :: Maybe RSpec    -- ^ Requested standard specs
138 138 
  , optTieredSpec  :: Maybe RSpec    -- ^ Requested specs for tiered mode
139 139 
  , optReplay      :: Maybe String   -- ^ Unittests: RNG state
140 140 
  , optVerbose     :: Int            -- ^ Verbosity level
......
173 173 
  , optShowInsts   = False
174 174 
  , optShowNodes   = Nothing
175 175 
  , optShowVer     = False
176 
  , optStdSpec     = RSpec 1 4096 102400
176 
  , optStdSpec     = Nothing
177 177 
  , optTieredSpec  = Nothing
178 178 
  , optReplay      = Nothing
179 179 
  , optVerbose     = 1
......
383 383 
oStdSpec = Option "" ["standard-alloc"]
384 384 
             (ReqArg (\ inp opts -> do
385 385 
                        tspec <- parseISpecString "standard" inp
386 
                        return $ opts { optStdSpec = tspec } )
386 
                        return $ opts { optStdSpec = Just tspec } )
387 387 
              "STDSPEC")
388 388 
             "enable standard specs allocation, given as 'disk,ram,cpu'"
389 389 

  		












Also available in:
  Unified diff