test/VerifyUsingMockInput.hs: update due to InternalEvent API change
commit65d490dad31bd4b2f96414e533cebd5446f2c726
authorJonathan Daugherty <cygnus@foobox.com>
dateSun 20 Mar 2022, 20:40 (5 years ago)
parente7c20ca
test/VerifyUsingMockInput.hs+3−1
@@ -132,7 +132,9 @@ assertEventsFromSynInput table inputSpec expectedEvents = do
132132 readLoop 0 = return ()
133133 readLoop n = do
134134 e <- atomically $ readTChan $ input^.eventChannel
135− modifyIORef eventsRef ((:) e)
135+ case e of
136+ InputEvent ev -> modifyIORef eventsRef ((:) ev)
137+ ResumeAfterSignal -> return ()
136138 readLoop (n - 1)
137139 genEventsUsingIoActions maxDuration writeWaitClose readEvents
138140 outEvents <- reverse <$> readIORef eventsRef