Get it working for NS records.
[haeredes.git] / src / CommandLine.hs
index 699ea97aceea436ce6abecbace894d43542984eb..acd097a7d3094b3a7fe757ae2b23495d81f92af9 100644 (file)
@@ -2,7 +2,6 @@
 
 module CommandLine (
   Args(..),
-  Delegates(..),
   get_args
   )
 where
@@ -32,16 +31,9 @@ server_help =
   "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