diff options
| author | Daniel Gröber <dxld@darkboxed.org> | 2018-08-12 04:36:27 +0200 |
|---|---|---|
| committer | Daniel Gröber <dxld@darkboxed.org> | 2018-08-12 14:48:47 +0200 |
| commit | e4a06a26b56dd76d783f2b4e45528ac8ee3028a5 (patch) | |
| tree | bdfa150f01341d611e6eca91df0a0fbb68995041 /src/CabalHelper/Compiletime/Wrapper.hs | |
| parent | 1fbc090874cc9631cc54898b0af58583ce35bc29 (diff) | |
Add --help option to wrapper
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 |