Synnefo » snf-ganeti

  , oExTags

  , oExecJobs

  , oGroup

  , oInstMoves

  , oLuxiSocket

  , oMachineReadable

  , optExTags      :: Maybe [String] -- ^ Tags to use for exclusion

  , 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

  , optExTags      = Nothing

  , optExecJobs    = False

  , optGroup       = Nothing

  , optSelInst     = []

  , optLuxi        = Nothing

  , optMachineReadable = False

            (ReqArg (\ f o -> Ok o { optGroup = Just f }) "ID")

            "the ID of the group to balance"

oLuxiSocket :: OptType

oLuxiSocket = Option "L" ["luxi"]

              (OptArg ((\ f opts -> Ok opts { optLuxi = Just f }) .