From a1c0835445cbcaa81e3d96e6dc198cb29982b6e4 Mon Sep 17 00:00:00 2001
From: Simon Michael <simon@joyful.com>
Date: Tue, 3 Jul 2018 12:38:40 +0100
Subject: [PATCH] ui: fix a vty version bound typo & possibly build failures
 (#494)

CPP intended to use old code for vty < 5.15 was always using the new code.
---
 hledger-ui/Hledger/UI/Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/hledger-ui/Hledger/UI/Main.hs b/hledger-ui/Hledger/UI/Main.hs
index b7c138b7d..27bf9f351 100644
--- a/hledger-ui/Hledger/UI/Main.hs
+++ b/hledger-ui/Hledger/UI/Main.hs
@@ -15,7 +15,7 @@ import Control.Concurrent (threadDelay)
 import Control.Concurrent.Async
 import Control.Monad
 -- import Control.Monad.IO.Class (liftIO)
-#if !MIN_VERSION_vty(0,15,0)
+#if !MIN_VERSION_vty(5,15,0)
 import Data.Default (def)
 #endif
 -- import Data.Monoid              --
@@ -228,7 +228,7 @@ runBrickUi uopts@UIOpts{cliopts_=copts@CliOpts{reportopts_=ropts}} j = do
             )
 
         -- and start the app. Must be inside the withManager block
-#if MIN_VERSION_vty(0,15,0)
+#if MIN_VERSION_vty(5,15,0)
         let myVty = mkVty mempty
 #else
         let myVty = mkVty def