jtdaugherty/brick
1
1
Fork 0
mirror of https://github.com/jtdaugherty/brick.git synced 2025-01-07 14:36:59 +03:00
Code Issues Projects Releases Wiki Activity

Remove duplicated resize event now that we do not need to worry about stale states

Browse Source
This commit is contained in:
Jonathan Daugherty 2015-06-21 13:17:22 -07:00
parent 7308855d93
commit 5f8032c8f5
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Brick/Main.hs
View File

@ -20,7 +20,7 @@ module Brick.Main
where
import Control.Exception (finally)
import Control.Monad (when, forever)
import Control.Monad (forever)
import Control.Monad.Trans.State
import Control.Monad.IO.Class (liftIO)
import Control.Concurrent (forkIO, Chan, newChan, readChan, writeChan)
@ -85,17 +85,10 @@ defaultMainWithVty buildVty app initialAppState = do
forkIO $ supplyVtyEvents vty id chan
runVty vty chan app initialAppState initialRS
isResizeEvent :: Event -> Bool
isResizeEvent (EvResize _ _) = True
isResizeEvent _ = False
supplyVtyEvents :: Vty -> (Event -> e) -> Chan e -> IO ()
supplyVtyEvents vty mkEvent chan =
forever $ do
e <- nextEvent vty
-- On resize, send two events to force two redraws to force all
-- state updates to get flushed to the display
when (isResizeEvent e) $ writeChan chan $ mkEvent e
writeChan chan $ mkEvent e
runVty :: Vty -> Chan e -> App a e -> a -> RenderState -> IO ()