-- | The Args type represents the possible command-line options. The
-- duplication here seems necessary; CmdArgs' magic requires us to
-- define some things explicitly.
data Args =
NS { no_append_root :: Bool,
server :: Maybe String,
-- | The Args type represents the possible command-line options. The
-- duplication here seems necessary; CmdArgs' magic requires us to
-- define some things explicitly.
data Args =
NS { no_append_root :: Bool,
server :: Maybe String,
delegates :: [String] } |
MX { no_append_root :: Bool,
server :: Maybe String,
delegates :: [String] } |
MX { no_append_root :: Bool,
server :: Maybe String,