From 9bc97d8b5da953761052ca142bdea0662ddb3445 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 9 Apr 2024 21:23:04 -0400
Subject: 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.
---
 Biz/Lint.hs | 9 ++++++---
 1 file 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 ()
-- 
cgit v1.2.3