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
where
run cmd opts args
| Help `elem` opts = putStr $ usage
| Version `elem` opts = putStr versionmsg
| cmd `isPrefixOf` "balance" = withLedgerDo opts args balance
| cmd `isPrefixOf` "print" = withLedgerDo opts args print'
| cmd `isPrefixOf` "register" = withLedgerDo opts args register
| Help `elem` opts = putStr $ usage
| Version `elem` opts = putStr versionmsg
| cmd `isPrefixOf` "balance" = withLedgerDo opts args balance
| cmd `isPrefixOf` "print" = withLedgerDo opts args print'
| cmd `isPrefixOf` "register" = withLedgerDo opts args register
| cmd `isPrefixOf` "histogram" = withLedgerDo opts args histogram
| cmd `isPrefixOf` "add" = withLedgerDo opts args add
#ifdef VTY
| cmd `isPrefixOf` "ui" = withLedgerDo opts args ui
| cmd `isPrefixOf` "ui" = withLedgerDo opts args ui
#endif
#ifdef HAPPS
| cmd `isPrefixOf` "web" = withLedgerDo opts args web
| cmd `isPrefixOf` "web" = withLedgerDo opts args web
#endif
| cmd `isPrefixOf` "test" = runtests opts args >> return ()
| otherwise = putStr $ usage
| cmd `isPrefixOf` "test" = runtests opts args >> return ()
| otherwise = putStr $ usage