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

whitespace

Browse Source
This commit is contained in:
Simon Michael 2009-04-07 21:16:42 +00:00
parent 371f427dc4
commit ae69a216ac
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
hledger.hs
View File

@ -78,19 +78,19 @@ main = do
run cmd opts args run cmd opts args
where where
run cmd opts args run cmd opts args
| Help `elem` opts = putStr $ usage | Help `elem` opts = putStr $ usage
| Version `elem` opts = putStr versionmsg | Version `elem` opts = putStr versionmsg
| cmd `isPrefixOf` "balance" = withLedgerDo opts args balance | cmd `isPrefixOf` "balance" = withLedgerDo opts args balance
| cmd `isPrefixOf` "print" = withLedgerDo opts args print' | cmd `isPrefixOf` "print" = withLedgerDo opts args print'
| cmd `isPrefixOf` "register" = withLedgerDo opts args register | cmd `isPrefixOf` "register" = withLedgerDo opts args register
| cmd `isPrefixOf` "histogram" = withLedgerDo opts args histogram | cmd `isPrefixOf` "histogram" = withLedgerDo opts args histogram
| cmd `isPrefixOf` "add" = withLedgerDo opts args add | cmd `isPrefixOf` "add" = withLedgerDo opts args add
#ifdef VTY #ifdef VTY
| cmd `isPrefixOf` "ui" = withLedgerDo opts args ui | cmd `isPrefixOf` "ui" = withLedgerDo opts args ui
#endif #endif
#ifdef HAPPS #ifdef HAPPS
| cmd `isPrefixOf` "web" = withLedgerDo opts args web | cmd `isPrefixOf` "web" = withLedgerDo opts args web
#endif #endif
| cmd `isPrefixOf` "test" = runtests opts args >> return () | cmd `isPrefixOf` "test" = runtests opts args >> return ()
| otherwise = putStr $ usage | otherwise = putStr $ usage