Synnefo » snf-ganeti » ganeti-local

  , optExecJobs    :: Bool           -- ^ Execute the commands via Luxi

  , optGroup       :: Maybe GroupID  -- ^ The UUID of the group to process

  , optSelInst     :: [String]       -- ^ Instances to be excluded

  , optLuxi        :: Maybe FilePath -- ^ Collect data from Luxi

  , optMachineReadable :: Bool       -- ^ Output machine-readable format

  , optMaster      :: String         -- ^ Collect data from RAPI

  , optShowInsts   :: Bool           -- ^ Whether to show the instance map

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

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

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

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

  , optVerbose     :: Int            -- ^ Verbosity level

  , optExecJobs    = False

  , optGroup       = Nothing

  , optSelInst     = []

  , optLuxi        = Nothing

  , optMachineReadable = False

  , optMaster      = ""

  , optShowInsts   = False

  , optShowNodes   = Nothing

  , optShowVer     = False

  , optTieredSpec  = Nothing

  , optReplay      = Nothing

  , optVerbose     = 1

oStdSpec = Option "" ["standard-alloc"]

             (ReqArg (\ inp opts -> do

                        tspec <- parseISpecString "standard" inp

              "STDSPEC")

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

         exitWith $ ExitFailure 1

  let verbose = optVerbose opts

      disk_template = optDiskTemplate opts

      req_nodes = Instance.requiredNodes disk_template

      machine_r = optMachineReadable opts