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

comment

Browse Source
This commit is contained in:
Simon Michael 2011-09-14 19:46:31 +00:00
parent 33f6277e0d
commit 9a6328adeb
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

@ -69,7 +69,7 @@ main = do
run' opts addons args run' opts addons args
where where
run' opts@CliOpts{command_=cmd} addons args run' opts@CliOpts{command_=cmd} addons args
-- delicate, eg ADDONCOMMAND --version; add tests before changing -- delicate, add tests before changing (eg --version, ADDONCMD --version, INTERNALCMD --version)
| (null matchedaddon) && "version" `in_` (rawopts_ opts) = putStrLn progversion | (null matchedaddon) && "version" `in_` (rawopts_ opts) = putStrLn progversion
| (null matchedaddon) && "binary-filename" `in_` (rawopts_ opts) = putStrLn $ binaryfilename progname | (null matchedaddon) && "binary-filename" `in_` (rawopts_ opts) = putStrLn $ binaryfilename progname
| null cmd = putStr $ showModeHelp mainmode' | null cmd = putStr $ showModeHelp mainmode'