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

ui: replace odd-looking pattern

Browse Source
This commit is contained in:
Simon Michael 2018-10-15 18:30:57 -07:00
parent 1db9b018f1
commit 1c3233cc0f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
hledger-ui/Hledger/UI/UIState.hs
View File

@ -113,8 +113,9 @@ toggleTree :: UIState -> UIState
toggleTree ui@UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}} = toggleTree ui@UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}}} =
ui{aopts=uopts{cliopts_=copts{reportopts_=toggleTreeMode ropts}}} ui{aopts=uopts{cliopts_=copts{reportopts_=toggleTreeMode ropts}}}
where where
toggleTreeMode ropts@ReportOpts{accountlistmode_=ALTree} = ropts{accountlistmode_=ALFlat} toggleTreeMode ropts
toggleTreeMode ropts = ropts{accountlistmode_=ALTree} | accountlistmode_ ropts == ALTree = ropts{accountlistmode_=ALFlat}
| otherwise = ropts{accountlistmode_=ALTree}
-- | Toggle between historical balances and period balances. -- | Toggle between historical balances and period balances.
toggleHistorical :: UIState -> UIState toggleHistorical :: UIState -> UIState