slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

stop forcing tree mode for now, need is unclear (fixes #552)

Browse Source
This commit is contained in:
Simon Michael 2017-05-23 10:03:25 -07:00
parent a5b545c4eb
commit 6c95909fa2
1 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hledger/Hledger/Cli/BalanceView.hs
View File

@ -168,16 +168,6 @@ balanceviewReport BalanceView{..} CliOpts{command_=cmd, reportopts_=ropts, rawop
PeriodChange -> "(Balance Changes)" PeriodChange -> "(Balance Changes)"
CumulativeChange -> "(Cumulative Ending Balances)" CumulativeChange -> "(Cumulative Ending Balances)"
HistoricalBalance -> "(Historical Ending Balances)" HistoricalBalance -> "(Historical Ending Balances)"
ropts' = treeIfNotPeriod $ ropts' = ropts { balancetype_ = balancetype }
ropts { balancetype_ = balancetype }
treeIfNotPeriod = case (balancetype, interval_ ropts) of
-- For --historical/--cumulative, we must use multiBalanceReport.
-- (This forces --no-elide.)
-- These settings format the output in a way that we can convert to
-- a normal balance report using singleBalanceReport. See
-- Balance.hs for more information.
(HistoricalBalance, NoInterval) -> \o -> o { accountlistmode_ = ALTree }
(CumulativeChange , NoInterval) -> \o -> o { accountlistmode_ = ALTree }
_ -> id
merging (Table hLeft hTop dat) (Table hLeft' _ dat') = merging (Table hLeft hTop dat) (Table hLeft' _ dat') =
Table (T.Group DoubleLine [hLeft, hLeft']) hTop (dat ++ dat') Table (T.Group DoubleLine [hLeft, hLeft']) hTop (dat ++ dat')