diff options
| -rw-r--r-- | Biz/Lint.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Biz/Lint.hs b/Biz/Lint.hs index d387db0..af285a7 100644 --- a/Biz/Lint.hs +++ b/Biz/Lint.hs @@ -60,7 +60,10 @@ move args = +> run mode +> exit where - mode = args `Cli.has` Cli.longOption "fix" ?: (Fix, Check) + mode = + args + `Cli.has` Cli.longOption "fix" + ?: (Fix, Check) test :: Test.Tree test = @@ -81,8 +84,8 @@ Usage: lint [options] [<file>...] Options: - --fix, -f Apply fixes automatically - --help, -h Print this info + -f, --fix Apply fixes automatically + -h, --help Print this info |] exit :: [Result] -> IO () |