Rename to haeredes.

[haeredes.git] / src / CommandLine.hs

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 699ea97aceea436ce6abecbace894d43542984eb..39470b23106af79e3b0c69070679971c4ef2cabc 100644 (file)
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -2,7 +2,6 @@
 
 module CommandLine (
   Args(..),
-  Delegates(..),
   get_args
   )
 where
@@ -10,7 +9,7 @@ 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
@@ -22,7 +21,7 @@ mx_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)
@@ -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