@@ -211,16 +211,16 @@ internalMkVty input out = do
212 let mkResize = uncurry EvResize <$> displayBounds out
212 let mkResize = uncurry EvResize <$> displayBounds out
214− handleInternalEvent ResumeAfterSignal = mkResize
214+ translateInternalEvent ResumeAfterSignal = mkResize
215− handleInternalEvent (InputEvent e) = return e
215+ translateInternalEvent (InputEvent e) = return e
217 gkey = do
217 gkey = do
218 e <- atomically $ readTChan $ _eventChannel input
218 e <- atomically $ readTChan $ _eventChannel input
219− handleInternalEvent e
219+ translateInternalEvent e
220 gkey' = do
220 gkey' = do
221 mEv <- atomically $ tryReadTChan $ _eventChannel input
221 mEv <- atomically $ tryReadTChan $ _eventChannel input
222 case mEv of
222 case mEv of
223− Just e -> Just <$> handleInternalEvent e
223+ Just e -> Just <$> translateInternalEvent e
224 Nothing -> return Nothing
224 Nothing -> return Nothing
226 return $ Vty { update = innerUpdate
226 return $ Vty { update = innerUpdate