Synnefo » snf-ganeti

  , oShowHelp

  , oShowVer

  , oStdSpec

  , oTieredSpec

  , oVerbose

  ) where

  , optShowNodes   :: Maybe [String] -- ^ Whether to show node status

  , optShowVer     :: Bool           -- ^ Just show the program version

  , optStdSpec     :: Maybe RSpec    -- ^ Requested standard specs

  , optTieredSpec  :: Maybe RSpec    -- ^ Requested specs for tiered mode

  , optReplay      :: Maybe String   -- ^ Unittests: RNG state

  , optVerbose     :: Int            -- ^ Verbosity level

  , optShowNodes   = Nothing

  , optShowVer     = False

  , optStdSpec     = Nothing

  , optTieredSpec  = Nothing

  , optReplay      = Nothing

  , optVerbose     = 1

              "STDSPEC")

             "enable standard specs allocation, given as 'disk,ram,cpu'"

oTieredSpec :: OptType

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

             (ReqArg (\ inp opts -> do

import Data.Char

import Data.IORef

import Data.List

import System.Console.GetOpt ()

import System.Environment (getArgs)

import System.Exit

  , oVerbose

  , oShowVer

  , oShowHelp

  ]

fast :: Args

           case vs of

             [rng, size] -> return $ Just (read rng, read size)

             _ -> fail "Invalid state given"

              }

main :: IO ()