ilyakooo0/vty
1
0
Fork 0
mirror of https://github.com/ilyakooo0/vty.git synced 2024-11-29 08:49:40 +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 let mkResize = uncurry EvResize <$> displayBounds out
handleInternalEvent ResumeAfterSignal = mkResize translateInternalEvent ResumeAfterSignal = mkResize
handleInternalEvent (InputEvent e) = return e translateInternalEvent (InputEvent e) = return e
gkey = do gkey = do
e <- atomically $ readTChan $ _eventChannel input e <- atomically $ readTChan $ _eventChannel input
handleInternalEvent e translateInternalEvent e
gkey' = do gkey' = do
mEv <- atomically $ tryReadTChan $ _eventChannel input mEv <- atomically $ tryReadTChan $ _eventChannel input
case mEv of case mEv of
Just e -> Just <$> handleInternalEvent e Just e -> Just <$> translateInternalEvent e
Nothing -> return Nothing Nothing -> return Nothing
return $ Vty { update = innerUpdate return $ Vty { update = innerUpdate