From f58ce2640759d441ca23fdb928c968773c602f6f Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Fri, 19 Nov 2010 20:14:48 +0000 Subject: [PATCH] fix haddock breakage --- hledger-web/Hledger/Web/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/hledger-web/Hledger/Web/Main.hs b/hledger-web/Hledger/Web/Main.hs index fa19d05f9..dcc732b12 100644 --- a/hledger-web/Hledger/Web/Main.hs +++ b/hledger-web/Hledger/Web/Main.hs @@ -37,10 +37,10 @@ main = do | HelpOptions `elem` opts = putStr help2 | HelpAll `elem` opts = putStr $ help1 ++ "\n" ++ help2 | Version `elem` opts = putStrLn versionmsg - -- | BinaryFilename `elem` opts = putStrLn binaryfilename + -- \| BinaryFilename `elem` opts = putStrLn binaryfilename | null cmd = maybe (putStr help1) (withJournalDo opts args cmd) defaultcmd | cmd `isPrefixOf` "web" = withJournalDo opts args cmd web - -- | cmd `isPrefixOf` "test" = runtests opts args >> return () + -- \| cmd `isPrefixOf` "test" = runtests opts args >> return () | otherwise = putStr help1 defaultcmd = Just web