From 60bd81d6849be548886e725fd652c90e642d1f35 Mon Sep 17 00:00:00 2001 From: Jonathan Daugherty Date: Mon, 14 Mar 2022 13:01:28 -0700 Subject: [PATCH] Rename nit --- src/Graphics/Vty.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Graphics/Vty.hs b/src/Graphics/Vty.hs index f5342ed..7354205 100644 --- a/src/Graphics/Vty.hs +++ b/src/Graphics/Vty.hs @@ -211,16 +211,16 @@ internalMkVty input out = do let mkResize = uncurry EvResize <$> displayBounds out - handleInternalEvent ResumeAfterSignal = mkResize - handleInternalEvent (InputEvent e) = return e + translateInternalEvent ResumeAfterSignal = mkResize + translateInternalEvent (InputEvent e) = return e gkey = do e <- atomically $ readTChan $ _eventChannel input - handleInternalEvent e + translateInternalEvent e gkey' = do mEv <- atomically $ tryReadTChan $ _eventChannel input case mEv of - Just e -> Just <$> handleInternalEvent e + Just e -> Just <$> translateInternalEvent e Nothing -> return Nothing return $ Vty { update = innerUpdate