From b0f211fbfc9c05d627495b2d33ac64fff148ee4a Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Thu, 10 Aug 2017 17:46:21 +0200
Subject: [PATCH] Add/Use flag `-h` for `--help`, fixes #44

---
 src-brittany/Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src-brittany/Main.hs b/src-brittany/Main.hs
index e579fb0..c337822 100644
--- a/src-brittany/Main.hs
+++ b/src-brittany/Main.hs
@@ -100,7 +100,7 @@ mainCmdParser helpDesc = do
   addCmd "license" $ addCmdImpl $ print $ licenseDoc
   -- addButcherDebugCommand
   reorderStart
-  printHelp      <- addSimpleBoolFlag "" ["help"] mempty
+  printHelp      <- addSimpleBoolFlag "h" ["help"] mempty
   printVersion   <- addSimpleBoolFlag "" ["version"] mempty
   printLicense   <- addSimpleBoolFlag "" ["license"] mempty
   inputPaths     <- addFlagStringParams "i" ["input"] "PATH" (flagHelpStr "path to input haskell source file")