From 8f37d8a611adc6f1378138d5fde1241209a04994 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Wed, 17 Nov 2021 16:19:46 -1000
Subject: [PATCH] ;ref: ui: clarify vty construction

---
 hledger-ui/Hledger/UI/Main.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs
index 0be3d81cf..29988b3f6 100644
--- a/hledger-ui/Hledger/UI/Main.hs
+++ b/hledger-ui/Hledger/UI/Main.hs
@@ -229,6 +229,6 @@ runBrickUi uopts@UIOpts{uoCliOpts=copts@CliOpts{inputopts_=_iopts,reportspec_=rs
             )
 
         -- and start the app. Must be inside the withManager block
-        let mkvty = mkVty mempty
-        vty0 <- mkvty
-        void $ customMain vty0 mkvty (Just eventChan) brickapp ui
+        let vtyhandle = mkVty mempty
+        vty <- vtyhandle
+        void $ customMain vty vtyhandle (Just eventChan) brickapp ui