From b81c2395d57abeddfa2e7ab0eface3b7e4413c39 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Thu, 8 Sep 2022 11:36:07 -1000
Subject: [PATCH] dev: ui: fix warning

---
 hledger-ui/Hledger/UI/TransactionScreen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/hledger-ui/Hledger/UI/TransactionScreen.hs b/hledger-ui/Hledger/UI/TransactionScreen.hs
index 424192410..9e930ba99 100644
--- a/hledger-ui/Hledger/UI/TransactionScreen.hs
+++ b/hledger-ui/Hledger/UI/TransactionScreen.hs
@@ -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
               } ->