From 9699335376fa4bd5a9c7f2dcfb6bbe6a0165be40 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Sun, 1 Jan 2023 20:36:48 -0500
Subject: Support -h in Biz.Cli

---
 Biz/Cli.hs  | 2 +-
 Biz/Lint.hs | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'Biz')

diff --git a/Biz/Cli.hs b/Biz/Cli.hs
index 435ded2..b3c7583 100644
--- a/Biz/Cli.hs
+++ b/Biz/Cli.hs
@@ -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 ()
-- 
cgit v1.2.3