simonmichael/hledger
1
1
Fork 0
mirror of https://github.com/simonmichael/hledger.git synced 2024-12-29 13:22:27 +03:00
Code Issues Projects Releases Wiki Activity

fix a bug with account name eliding in balance report

Browse Source
This commit is contained in:
Simon Michael 2008-10-16 09:22:41 +00:00
parent 2711474bc9
commit fdf4955007
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
BalanceCommand.hs
View File

@ -171,7 +171,7 @@ showAccountTreeWithBalances matchedacctnames =
showAccountTreeWithBalances' matchedacctnames indentlevel prefix (Node (Account fullname _ bal) subs) = showAccountTreeWithBalances' matchedacctnames indentlevel prefix (Node (Account fullname _ bal) subs) =
if isboringparent then showsubswithprefix else showacct ++ showsubswithindent if isboringparent then showsubswithprefix else showacct ++ showsubswithindent
where where
showsubswithprefix = showsubs indentlevel (fullname++":") showsubswithprefix = showsubs indentlevel (prefix++leafname++":")
showsubswithindent = showsubs (indentlevel+1) "" showsubswithindent = showsubs (indentlevel+1) ""
showsubs i p = concatMap (showAccountTreeWithBalances' matchedacctnames i p) subs showsubs i p = concatMap (showAccountTreeWithBalances' matchedacctnames i p) subs
showacct = showbal ++ " " ++ indent ++ prefix ++ leafname ++ "\n" showacct = showbal ++ " " ++ indent ++ prefix ++ leafname ++ "\n"