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

ui: fix regression in 'F' (fixes #1255)

Browse Source
This commit is contained in:
Dmitry Astapov 2020-06-13 21:14:39 +01:00 committed by Simon Michael
parent 6711e47c7c
commit 460508807f
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,6 +14,7 @@ import Brick.Widgets.Edit
import Data.List import Data.List
import Data.Text.Zipper (gotoEOL) import Data.Text.Zipper (gotoEOL)
import Data.Time.Calendar (Day) import Data.Time.Calendar (Day)
import Data.Maybe (fromMaybe)
import Hledger import Hledger
import Hledger.Cli.CliOptions import Hledger.Cli.CliOptions
@ -172,7 +173,7 @@ toggleForecast d ui@UIState{aopts=uopts@UIOpts{cliopts_=copts@CliOpts{reportopts
forecast' = forecast' =
case forecast_ ropts of case forecast_ ropts of
Just _ -> Nothing Just _ -> Nothing
Nothing -> forecastPeriodFromRawOpts d $ rawopts_ copts Nothing -> Just $ fromMaybe nulldatespan $ forecastPeriodFromRawOpts d $ rawopts_ copts
-- | Toggle between showing all and showing only real (non-virtual) items. -- | Toggle between showing all and showing only real (non-virtual) items.
toggleReal :: UIState -> UIState toggleReal :: UIState -> UIState