Change "IP" to "HOST" in the --server arg.

[haeredes.git] / src / CommandLine.hs

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 0ea89a0173c56456162c10ab882dc1dc35e84341..2118f5911ec2c533128f5a5c41530348ca10c362 100644 (file)
--- a/src/CommandLine.hs
+++ b/src/CommandLine.hs
@@ -48,13 +48,13 @@ my_summary = program_name ++ "-" ++ (showVersion version)
 
 no_append_root_help :: String
 no_append_root_help =
-  "Don't append a trailing dot to DNS names."
+  "Don't append a trailing dot to DNS names"
 
 -- | Help string for the --server flag.
 server_help :: String
 server_help =
   "IP address or hostname of server to query " ++
-  "(will use resolv.conf if not specified)."
+  "(will use resolv.conf if not specified)"
 
 -- | The Args type represents the possible command-line options. The
 --   duplication here seems necessary; CmdArgs' magic requires us to
@@ -91,7 +91,7 @@ arg_spec =
 
            server = def
                  &= groupname "Common flags"
-                 &= typ "IP"
+                 &= typ "HOST"
                  &= help server_help,
 
            delegates = def