jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2024-09-11 15:55:54 +03:00
Code Issues Projects Releases Wiki Activity

Update test suite to build with vty-unix and vty 6

Browse Source
This commit is contained in:
Jonathan Daugherty 2023-10-30 15:13:47 -07:00
parent f1c680201e
commit 4917138095
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
brick.cabal
View File

@ -576,4 +576,5 @@ test-suite brick-tests
microlens,
vector,
vty,
vty-unix,
QuickCheck

4
tests/Render.hs
View File

@ -10,6 +10,8 @@ import Control.Monad (when)
import Data.Monoid
#endif
import qualified Graphics.Vty as V
import qualified Graphics.Vty.Platform.Unix.Output as VU
import qualified Graphics.Vty.Platform.Unix.Settings as VU
import Brick.Widgets.Border (hBorder)
import Control.Exception (SomeException, try)
@ -18,7 +20,7 @@ region = (30, 10)
renderDisplay :: Ord n => [Widget n] -> IO ()
renderDisplay ws = do
outp <- V.outputForConfig V.defaultConfig
outp <- VU.buildOutput =<< VU.defaultSettings
ctx <- V.displayContext outp region
V.outputPicture ctx (renderWidget Nothing ws region)
V.releaseDisplay outp