diff options
-rw-r--r-- | hosts.hs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -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" |