dev: ui: fix warning
This commit is contained in:
parent
6737bb3d38
commit
b81c2395d5
@ -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
|
||||
} ->
|
||||
|
||||
Loading…
Reference in New Issue
Block a user