diff options
| author | joe <joe@jerkface.net> | 2014-07-31 18:03:36 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2014-07-31 18:03:36 -0400 |
| commit | 1e92b09448a61b715b8a7394ede0062d5a2efb45 (patch) | |
| tree | a3e8ed8edf05ce57b67f9e3388a5d24a1181e3cd /hosts.hs | |
| parent | 4891dd8cd8d2227158dc81a437865283305f82ac (diff) | |
capitolized variables in hosts usage message
Diffstat (limited to 'hosts.hs')
| -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" |