Print help message with --help

1 files changed, 4 insertions, 1 deletions

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