ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-25 19:22:08 +03:00
Code Issues Projects Releases Wiki Activity

Rename nit

Browse Source
This commit is contained in:
Jonathan Daugherty 2022-03-14 13:01:28 -07:00
parent 2cd98a862c
commit 60bd81d684
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Graphics/Vty.hs
View File

@ -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