mirror of
https://github.com/jtdaugherty/brick.git
synced 2024-09-11 15:55:54 +03:00
Update test suite to build with vty-unix and vty 6
This commit is contained in:
parent
f1c680201e
commit
4917138095
@ -576,4 +576,5 @@ test-suite brick-tests
|
||||
microlens,
|
||||
vector,
|
||||
vty,
|
||||
vty-unix,
|
||||
QuickCheck
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user