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

lib: mark todo for multicolumn balance/bs (#518)

Browse Source
This commit is contained in:
Simon Michael 2017-03-31 16:55:04 -07:00
parent e50dede708
commit 646cdf34e2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
hledger-lib/Hledger/Reports/MultiBalanceReports.hs
View File

@ -73,14 +73,14 @@ instance Show MultiBalanceReport where
type ClippedAccountName = AccountName
-- | Generates a single column BalanceReport like balanceReport, but uses
-- multiBalanceReport, so supports --historical. Does not support
-- boring parent eliding yet.
-- multiBalanceReport, so supports --historical.
-- TODO Does not support boring parent eliding or --flat yet.
singleBalanceReport :: ReportOpts -> Query -> Journal -> BalanceReport
singleBalanceReport opts q j = (rows', total)
where
MultiBalanceReport (_, rows, (totals, _, _)) = multiBalanceReport opts q j
rows' = [(a
,if tree_ opts then a' else a -- BalanceReport expects full account name here with --flat
,if flat_ opts then a else a' -- BalanceReport expects full account name here with --flat
,if tree_ opts then d-1 else 0 -- BalanceReport uses 0-based account depths
, headDef nullmixedamt amts -- 0 columns is illegal, should not happen, return zeroes if it does
) | (a,a',d, amts, _, _) <- rows]