diff options
| -rw-r--r-- | Biz/Cli.hs | 2 | ||||
| -rw-r--r-- | Biz/Lint.hs | 2 |
2 files changed, 2 insertions, 2 deletions
@@ -38,7 +38,7 @@ main Plan {..} = if args `has` Docopt.command "test" then Test.run test else - if args `has` Docopt.longOption "help" + if args `has` Docopt.longOption "help" || args `has` Docopt.shortOption 'h' then Docopt.exitWithUsage help else move args diff --git a/Biz/Lint.hs b/Biz/Lint.hs index 80e2665..0341954 100644 --- a/Biz/Lint.hs +++ b/Biz/Lint.hs @@ -52,9 +52,9 @@ help = all your lint are belong to us Usage: - lint --help lint test lint [--fix] [<file>...] + lint -h, --help |] exit :: [Result] -> IO () |