;ref: ui: clarify vty construction

2021-11-17 16:19:46 -10:00 · 2021-11-17 16:19:46 -10:00 · 8f37d8a611
commit 8f37d8a611
parent 7ba9a4d06b
1 changed files with 3 additions and 3 deletions
--- 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