Synnefo » snf-ganeti

data DaemonOptions = DaemonOptions

  { optShowHelp     :: Bool           -- ^ Just show the help

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

  , optDaemonize    :: Bool           -- ^ Whether to daemonize or not

  , optPort         :: Maybe Word16   -- ^ Override for the network port

  , optDebug        :: Bool           -- ^ Enable debug messages

defaultOptions  = DaemonOptions

  { optShowHelp     = False

  , optShowVer      = False

  , optDaemonize    = True

  , optPort         = Nothing

  , optDebug        = False

instance StandardOptions DaemonOptions where

  helpRequested = optShowHelp

  verRequested  = optShowVer

  requestHelp o = o { optShowHelp = True }

  requestVer  o = o { optShowVer  = True }

-- | Abrreviation for the option type.

type OptType = GenericOptType DaemonOptions

genericOpts :: [OptType]

genericOpts = [ oShowHelp

              , oShowVer

              ]

-- | Small wrapper over getArgs and 'parseOpts'.