ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-10-04 03:07:07 +03:00
Code Issues Projects Releases Wiki Activity

test/VerifyUsingMockInput.hs: update due to InternalEvent API change

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-03-20 20:40:28 -07:00
parent e7c20ca556
commit 65d490dad3
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/VerifyUsingMockInput.hs
View File

@ -132,7 +132,9 @@ assertEventsFromSynInput table inputSpec expectedEvents = do
readLoop 0 = return ()
readLoop n = do
e <- atomically $ readTChan $ input^.eventChannel
modifyIORef eventsRef ((:) e)
case e of
InputEvent ev -> modifyIORef eventsRef ((:) ev)
ResumeAfterSignal -> return ()
readLoop (n - 1)
genEventsUsingIoActions maxDuration writeWaitClose readEvents
outEvents <- reverse <$> readIORef eventsRef