X-Git-Url: http://gitweb.michael.orlitzky.com/?p=haeredes.git;a=blobdiff_plain;f=src%2FCommandLine.hs;h=2118f5911ec2c533128f5a5c41530348ca10c362;hp=0ea89a0173c56456162c10ab882dc1dc35e84341;hb=95bd7958d5a3483ba2cbe232765138a7785b2429;hpb=7cc26ab4bfa90c4abe0c741d5a3eaf575544466a

diff --git a/src/CommandLine.hs b/src/CommandLine.hs
index 0ea89a0..2118f59 100644
--- 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