diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs index 3b899e7cd..f5b089ca6 100644 --- a/hledger-web/Hledger/Web/Main.hs +++ b/hledger-web/Hledger/Web/Main.hs @@ -57,7 +57,7 @@ hledgerWebMain = do | "info" `inRawOpts` rawopts_ -> runInfoForTopic "hledger-web" Nothing | "man" `inRawOpts` rawopts_ -> runManForTopic "hledger-web" Nothing | "version" `inRawOpts` rawopts_ -> putStrLn prognameandversion >> exitSuccess - -- | "binary-filename" `inRawOpts` rawopts_ -> putStrLn (binaryfilename progname) + -- "binary-filename" `inRawOpts` rawopts_ -> putStrLn (binaryfilename progname) | "test" `inRawOpts` rawopts_ -> do -- remove --test and --, leaving other args for hspec filter (not . (`elem` ["--test","--"])) <$> getArgs >>= flip withArgs hledgerWebTest