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

This commit is contained in:
Simon Michael 2017-05-23 10:03:25 -07:00
parent a5b545c4eb
commit 6c95909fa2

View File

@ -168,16 +168,6 @@ balanceviewReport BalanceView{..} CliOpts{command_=cmd, reportopts_=ropts, rawop
PeriodChange -> "(Balance Changes)"
CumulativeChange -> "(Cumulative Ending Balances)"
HistoricalBalance -> "(Historical Ending Balances)"
ropts' = treeIfNotPeriod $
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
ropts' = ropts { balancetype_ = balancetype }
merging (Table hLeft hTop dat) (Table hLeft' _ dat') =
Table (T.Group DoubleLine [hLeft, hLeft']) hTop (dat ++ dat')