Synnefo » snf-ganeti

  , oPort

  , oBindAddress

  , oSyslogUsage

  , parseArgs

  , parseAddress

  , cleanupSocket

  , optNoUserChecks :: Bool           -- ^ Ignore user checks

  , optBindAddress  :: Maybe String   -- ^ Override for the bind address

  , optSyslogUsage  :: Maybe SyslogUsage -- ^ Override for Syslog usage

  }

-- | Default values for the command line options.

  , optNoUserChecks = False

  , optBindAddress  = Nothing

  , optSyslogUsage  = Nothing

  }

instance StandardOptions DaemonOptions where

    "]"),

   OptComplChoices ["yes", "no", "only"])

-- | Generic options.

genericOpts :: [OptType]

genericOpts = [ oShowHelp

-- | Ensures that the daemon runs on the right node (and exits

-- gracefully if it doesnt)

  is_master <- isMaster

    putStrLn "Not master, exiting."

    exitWith (ExitFailure C.exitNotmaster)

    hPutStrLn stderr $

      printf C.debugModeConfidentialityWarning (daemonName daemon)

  exitUnless (null args) "This program doesn't take any arguments"