diff options
Diffstat (limited to 'src/CabalHelper/Compiletime/Wrapper.hs')
| -rw-r--r-- | src/CabalHelper/Compiletime/Wrapper.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/CabalHelper/Compiletime/Wrapper.hs b/src/CabalHelper/Compiletime/Wrapper.hs index 3ea3462..ae936f3 100644 --- a/src/CabalHelper/Compiletime/Wrapper.hs +++ b/src/CabalHelper/Compiletime/Wrapper.hs @@ -65,7 +65,9 @@ usage = do globalArgSpec :: [OptDescr (Options -> Options)] globalArgSpec = - [ option "" ["verbose"] "Be more verbose" $ + [ option "h" ["help"] "Display help message" $ + NoArg $ \o -> o { oHelp = True } + , option "" ["verbose"] "Be more verbose" $ NoArg $ \o -> o { oVerbose = True } , option "" ["with-ghc"] "GHC executable to use" $ @@ -137,6 +139,7 @@ main = handlePanic $ do (opts', args) <- parseCommandArgs defaultOptions <$> getArgs opts <- overrideVerbosityEnvVar =<< guessProgramPaths opts' case args of + _ | oHelp opts -> usage [] -> usage "help":[] -> usage "version":[] -> putStrLn $ showVersion version |