slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages 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 where
showacct = showInterestingAccount l interestingaccts showacct = showInterestingAccount l interestingaccts
interestingaccts = filter (isInteresting opts l) acctnames 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 accttree = ledgerAccountTree (depthFromOpts opts) l
apats = fst $ parseAccountDescriptionArgs opts args
totalstr | isZeroMixedAmount total = "" totalstr | isZeroMixedAmount total = ""
| otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmount total | otherwise = printf "--------------------\n%s\n" $ padleft 20 $ showMixedAmount total
where where