diff options
| author | Ben Sima <ben@bsima.me> | 2024-04-09 21:23:04 -0400 |
|---|---|---|
| committer | Ben Sima <ben@bsima.me> | 2024-04-10 20:31:27 -0400 |
| commit | 9bc97d8b5da953761052ca142bdea0662ddb3445 (patch) | |
| tree | 8c60a546a4b26f7f8967527816ccc999ebe633bc | |
| parent | 94e7ec4f6280a80e2e929db9aa3c00fe8e066684 (diff) | |
Fix --fix/-f in Lint.hs
Apparently, docopt only parses short opts if they are separated by a single
space from the long opt. I used two spaces, to make it line up with -h below.
:facepalm: So anyway just flip them, to line up.
| -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 () |