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")