module CommandLine (
Args(..),
- Delegates(..),
get_args
)
where
import System.Console.CmdArgs
-- Get the version from Cabal.
-import Paths_haeres (version)
+import Paths_haeredes (version)
import Data.Version (showVersion)
ns_description :: String
mx_description = "Confirm delegation of MX records."
program_name :: String
-program_name = "haeres"
+program_name = "haeredes"
my_summary :: String
my_summary = program_name ++ "-" ++ (showVersion version)
"IP address of server to query " ++
"(will use resolv.conf if not specified)"
-newtype Delegates =
- Delegates { get_delegates :: [String] }
- deriving (Data, Show, Typeable)
-
-instance Default Delegates where
- def = Delegates []
-
data Args =
- NS { server :: Maybe String, delegates :: Delegates } |
- MX { server :: Maybe String, delegates :: Delegates }
+ NS { server :: Maybe String, delegates :: [String] } |
+ MX { server :: Maybe String, delegates :: [String] }
deriving (Data, Show, Typeable)
arg_spec :: Args