@@ -211,16 +211,16 @@ internalMkVty input out = do
211211
212212 let mkResize = uncurry EvResize <$> displayBounds out
213213
214− handleInternalEvent ResumeAfterSignal = mkResize
215− handleInternalEvent (InputEvent e) = return e
214+ translateInternalEvent ResumeAfterSignal = mkResize
215+ translateInternalEvent (InputEvent e) = return e
216216
217217 gkey = do
218218 e <- atomically $ readTChan $ _eventChannel input
219− handleInternalEvent e
219+ translateInternalEvent e
220220 gkey' = do
221221 mEv <- atomically $ tryReadTChan $ _eventChannel input
222222 case mEv of
223− Just e -> Just <$> handleInternalEvent e
223+ Just e -> Just <$> translateInternalEvent e
224224 Nothing -> return Nothing
225225
226226 return $ Vty { update = innerUpdate