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

Update test render program to match renderWidget API change

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-07-04 08:43:34 -07:00
parent 30a65fc7e0
commit 59da9b55e5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/Render.hs
View File

@ -17,7 +17,7 @@ renderDisplay :: Ord n => [Widget n] -> IO ()
renderDisplay ws = do
outp <- V.outputForConfig V.defaultConfig
ctx <- V.displayContext outp region
V.outputPicture ctx (renderWidget ws region)
V.outputPicture ctx (renderWidget Nothing ws region)
myWidget :: Widget ()
myWidget = str "Why" <=> hBorder <=> str "not?"
@ -34,7 +34,7 @@ main =
Left _ -> putStrLn "Terminal is not available"
Right () -> return ()
print $ show $ renderWidget [myWidget] region
print $ show $ renderWidget Nothing [myWidget] region
return $
show (renderWidget [myWidget] region) == renderedMyWidget
show (renderWidget Nothing [myWidget] region) == renderedMyWidget