dev: ui: fix warning

This commit is contained in:
Simon Michael 2022-09-08 11:36:07 -10:00
parent 6737bb3d38
commit b81c2395d5

View File

@ -118,7 +118,7 @@ tsHandle ev = do
ui0 <- get'
case ui0 of
ui@UIState{aScreen=TS TSS{_tssTransaction=(i,t), _tssTransactions=nts}
,aopts=UIOpts{uoCliOpts=copts@CliOpts{reportspec_=rspec@ReportSpec{_rsReportOpts=ropts}}}
,aopts=UIOpts{uoCliOpts=copts}
,ajournal=j
,aMode=mode
} ->