simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-11-14 02:14:14 +03:00
Code Issues Projects Releases Wiki Activity

roll back additional web-related balance report filtering, breaks tests

Browse Source
This commit is contained in:
Simon Michael 2009-04-01 05:38:31 +00:00
parent 595a07704c
commit 9203588d6d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
BalanceCommand.hs
View File

@ -127,9 +127,8 @@ showBalanceReport opts args l = acctsstr ++ totalstr
where
showacct = showInterestingAccount l interestingaccts
interestingaccts = filter (isInteresting opts l) acctnames
acctnames = filter (matchpats apats) $ sort $ tail $ flatten $ treemap aname accttree
acctnames = sort $ tail $ flatten $ treemap aname accttree
accttree = ledgerAccountTree (depthFromOpts opts) l
apats = fst $ parseAccountDescriptionArgs opts args
totalstr | isZeroMixedAmount total = ""
| otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmount total
where