From efa278aa35816f2906e288ffef82d1100181b1e1 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Tue, 19 Jan 2021 12:19:53 -0500
Subject: Print help message with --help

---
 Biz/Cli.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Biz')

diff --git a/Biz/Cli.hs b/Biz/Cli.hs
index 0f7b6d4..7ecd0c6 100644
--- a/Biz/Cli.hs
+++ b/Biz/Cli.hs
@@ -37,7 +37,10 @@ main Plan {..} =
     >>= \args ->
       if args `has` Docopt.command "test"
         then runTests test
-        else move args
+        else
+          if args `has` Docopt.longOption "help"
+            then Docopt.exitWithUsage help
+            else move args
 
 runTests :: Tasty.TestTree -> IO ()
 runTests tree = do
-- 
cgit v1.2.3