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

fix haddock breakage

Browse Source
This commit is contained in:
Simon Michael 2010-11-19 20:14:48 +00:00
parent fd10736373
commit f58ce26407
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-web/Hledger/Web/Main.hs
View File

@ -37,10 +37,10 @@ main = do
| HelpOptions `elem` opts = putStr help2 | HelpOptions `elem` opts = putStr help2
| HelpAll `elem` opts = putStr $ help1 ++ "\n" ++ help2 | HelpAll `elem` opts = putStr $ help1 ++ "\n" ++ help2
| Version `elem` opts = putStrLn versionmsg | 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 | null cmd = maybe (putStr help1) (withJournalDo opts args cmd) defaultcmd
| cmd `isPrefixOf` "web" = withJournalDo opts args cmd web | 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 | otherwise = putStr help1
defaultcmd = Just web defaultcmd = Just web