slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

easier to roll back this one than merge

Browse Source
This commit is contained in:
Simon Michael 2011-08-22 14:52:47 +00:00
parent b39c0f8819
commit dc43ca2d00
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 | cmd `isPrefixOf` "binaryfilename" = showModeHelpOr binaryfilenamemode $ putStrLn $ binaryfilename progname
| otherwise = showModeHelpOr mainmode $ optserror $ "command "++cmd++" is not recognized" | otherwise = showModeHelpOr mainmode $ optserror $ "command "++cmd++" is not recognized"
showModeHelpOr mode f = do showModeHelpOr mode f = do
when ("version" `in_` (rawopts_ opts)) $ printVersionAndExit
when ("help" `in_` (rawopts_ opts)) $ printModeHelpAndExit mode when ("help" `in_` (rawopts_ opts)) $ printModeHelpAndExit mode
when ("version" `in_` (rawopts_ opts)) $ printVersionAndExit
f f
{- tests: {- tests: