This commit is contained in:
Simon Michael 2011-09-14 19:46:31 +00:00
parent 33f6277e0d
commit 9a6328adeb

View File

@ -69,7 +69,7 @@ main = do
run' opts addons args
where
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) && "binary-filename" `in_` (rawopts_ opts) = putStrLn $ binaryfilename progname
| null cmd = putStr $ showModeHelp mainmode'