1 files changed, 4 insertions, 4 deletions
diff --git a/hosts.hs b/hosts.hs
index b73ecb3..8aa6027 100644
--- a/hosts.hs
+++ b/hosts.hs
@@ -80,12 +80,12 @@ main = do
        then crap $ map ("Expected \"delete\" or an ip address: "++) badaddrs
        else do
    if null $ keyvals cmd'
-        then crap ["hosts [-f file] [-l | -c] hostname (address|delete) ..."
+        then crap ["hosts [-f FILE] [-l | -c] HOSTNAME (ADDRESS|delete) ..."
                  ,""
-                  ,"  address:  an ip address"
+                  ,"  ADDRESS:  an ip address"
                  ,"  delete:   the literal word \"delete\""
-                  ,"  hostname: a host name to assign to"
+                  ,"  HOSTNAME: a host name to assign to"
-                  ,"  file:     a file to edit (default: /etc/hosts)"
+                  ,"  FILE:     a file to edit (default: /etc/hosts)"
                  ,""
                  ,"  -l  Instead of editing, set error code to indicate the"
                  ,"      absense of a pairing"

diff --git a/hosts.hs b/hosts.hs index b73ecb3..8aa6027 100644 --- a/hosts.hs +++ b/hosts.hs
@@ -80,12 +80,12 @@ main = do
80	then crap $ map ("Expected \"delete\" or an ip address: "++) badaddrs	80	then crap $ map ("Expected \"delete\" or an ip address: "++) badaddrs
81	else do	81	else do
82	if null $ keyvals cmd'	82	if null $ keyvals cmd'
83	then crap ["hosts [-f file] [-l \| -c] hostname (address\|delete) ..."	83	then crap ["hosts [-f FILE] [-l \| -c] HOSTNAME (ADDRESS\|delete) ..."
84	,""	84	,""
85	," address: an ip address"	85	," ADDRESS: an ip address"
86	," delete: the literal word \"delete\""	86	," delete: the literal word \"delete\""
87	," hostname: a host name to assign to"	87	," HOSTNAME: a host name to assign to"
88	," file: a file to edit (default: /etc/hosts)"	88	," FILE: a file to edit (default: /etc/hosts)"
89	,""	89	,""
90	," -l Instead of editing, set error code to indicate the"	90	," -l Instead of editing, set error code to indicate the"
91	," absense of a pairing"	91	," absense of a pairing"