@@ -132,7 +132,9 @@ assertEventsFromSynInput table inputSpec expectedEvents = do
132 readLoop 0 = return ()
132 readLoop 0 = return ()
133 readLoop n = do
133 readLoop n = do
134 e <- atomically $ readTChan $ input^.eventChannel
134 e <- atomically $ readTChan $ input^.eventChannel
135− modifyIORef eventsRef ((:) e)
136+ InputEvent ev -> modifyIORef eventsRef ((:) ev)
137+ ResumeAfterSignal -> return ()
136 readLoop (n - 1)
138 readLoop (n - 1)
137 genEventsUsingIoActions maxDuration writeWaitClose readEvents
139 genEventsUsingIoActions maxDuration writeWaitClose readEvents
138 outEvents <- reverse <$> readIORef eventsRef
140 outEvents <- reverse <$> readIORef eventsRef