diff --git a/hledger/Hledger/Cli/Main.hs b/hledger/Hledger/Cli/Main.hs index 45fa890dc..f0403d1b0 100644 --- a/hledger/Hledger/Cli/Main.hs +++ b/hledger/Hledger/Cli/Main.hs @@ -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 ("version" `in_` (rawopts_ opts)) $ printVersionAndExit when ("help" `in_` (rawopts_ opts)) $ printModeHelpAndExit mode + when ("version" `in_` (rawopts_ opts)) $ printVersionAndExit f {- tests: