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.
This commit is contained in:
Simon Michael 2018-07-03 12:38:40 +01:00
parent 332c23865e
commit a1c0835445

View File

@ -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