X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=src%2FCommandLine.hs;h=acd097a7d3094b3a7fe757ae2b23495d81f92af9;hp=699ea97aceea436ce6abecbace894d43542984eb;hb=70dffd6160208adf2c1c5746924c100cb0ffcb2e;hpb=825753e2731b8491d93d9f2d66b457fe31b1c763;ds=sidebyside

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 699ea97..acd097a 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -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