module CommandLine (
Args(..),
- Delegates(..),
get_args
)
where
"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