Add/Use flag `-h` for `--help`, fixes #44
parent
655074d1c0
commit
b0f211fbfc
|
@ -100,7 +100,7 @@ mainCmdParser helpDesc = do
|
||||||
addCmd "license" $ addCmdImpl $ print $ licenseDoc
|
addCmd "license" $ addCmdImpl $ print $ licenseDoc
|
||||||
-- addButcherDebugCommand
|
-- addButcherDebugCommand
|
||||||
reorderStart
|
reorderStart
|
||||||
printHelp <- addSimpleBoolFlag "" ["help"] mempty
|
printHelp <- addSimpleBoolFlag "h" ["help"] mempty
|
||||||
printVersion <- addSimpleBoolFlag "" ["version"] mempty
|
printVersion <- addSimpleBoolFlag "" ["version"] mempty
|
||||||
printLicense <- addSimpleBoolFlag "" ["license"] mempty
|
printLicense <- addSimpleBoolFlag "" ["license"] mempty
|
||||||
inputPaths <- addFlagStringParams "i" ["input"] "PATH" (flagHelpStr "path to input haskell source file")
|
inputPaths <- addFlagStringParams "i" ["input"] "PATH" (flagHelpStr "path to input haskell source file")
|
||||||
|
|
Loading…
Reference in New Issue