simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 02:37:12 +03:00
Code Issues Projects Releases Wiki Activity

would like to react to --version before --help, cmdargs does it first though

Browse Source
This commit is contained in:
Simon Michael 2011-08-20 19:18:10 +00:00
parent 870c687f31
commit b39c0f8819
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
hledger/Hledger/Cli/Main.hs
View File

@ -82,8 +82,8 @@ main = do
| cmd `isPrefixOf` "binaryfilename" = showModeHelpOr binaryfilenamemode $ putStrLn $ binaryfilename progname
| otherwise = showModeHelpOr mainmode $ optserror $ "command "++cmd++" is not recognized"
showModeHelpOr mode f = do
when ("help" `in_` (rawopts_ opts)) $ printModeHelpAndExit mode
when ("version" `in_` (rawopts_ opts)) $ printVersionAndExit
when ("help" `in_` (rawopts_ opts)) $ printModeHelpAndExit mode
f
{- tests: