simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-09-20 10:47:29 +03:00
Code Issues Projects Releases Wiki Activity

filter account names again when doing balance report

Browse Source 
for now, useful for web queries
This commit is contained in:
Simon Michael 2009-03-17 19:52:22 +00:00
parent 23dcc981d7
commit 595a07704c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
BalanceCommand.hs
View File

@ -127,8 +127,9 @@ showBalanceReport opts args l = acctsstr ++ totalstr
where
showacct = showInterestingAccount l interestingaccts
interestingaccts = filter (isInteresting opts l) acctnames
acctnames = sort $ tail $ flatten $ treemap aname accttree
acctnames = filter (matchpats apats) $ 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