slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ui: fix a vty version bound typo & possibly build failures (#494)

Browse Source 
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hledger-ui/Hledger/UI/Main.hs
View File

@ -15,7 +15,7 @@ import Control.Concurrent (threadDelay)
import Control.Concurrent.Async import Control.Concurrent.Async
import Control.Monad import Control.Monad
-- import Control.Monad.IO.Class (liftIO) -- import Control.Monad.IO.Class (liftIO)
#if !MIN_VERSION_vty(0,15,0) #if !MIN_VERSION_vty(5,15,0)
import Data.Default (def) import Data.Default (def)
#endif #endif
-- import Data.Monoid -- -- 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 -- 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 let myVty = mkVty mempty
#else #else
let myVty = mkVty def let myVty = mkVty def