X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=src%2FCommandLine.hs;h=42fcd616a4766ce4950063783ed492d2282663fa;hp=acd097a7d3094b3a7fe757ae2b23495d81f92af9;hb=75977adcec5c187204b95f3870544040c52398fd;hpb=70dffd6160208adf2c1c5746924c100cb0ffcb2e

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index acd097a..42fcd61 100644
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -6,10 +6,28 @@ module CommandLine (
   )
 where
 
-import System.Console.CmdArgs
+import System.Console.CmdArgs (
+  Data,
+  Typeable,
+  (&=),
+  args,
+  auto,
+  cmdArgs,
+  def,
+  details,
+  explicit,
+  groupname,
+  help,
+  helpArg,
+  modes,
+  name,
+  program,
+  summary,
+  typ,
+  versionArg )
 
 -- Get the version from Cabal.
-import Paths_haeres (version)
+import Paths_haeredes (version)
 import Data.Version (showVersion)
 
 ns_description :: String
@@ -21,7 +39,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)
@@ -55,13 +73,13 @@ arg_spec =
     ns :: Args
     ns = NS {
            server = def
-                  &= groupname "Common flags"
-                  &= typ "IP"
-                  &= help server_help,
+                 &= groupname "Common flags"
+                 &= typ "IP"
+                 &= help server_help,
 
            delegates = def
-                     &= args
-                     &= typ "DELEGATES" }
+                    &= args
+                    &= typ "DELEGATES" }
 
             &= details [ns_description]