post merge cleanup

This commit is contained in:
nek0 2017-11-23 19:37:36 +01:00
parent f61377f43a
commit b2da2d287a

View file

@ -135,7 +135,7 @@ withAffection AffectionConfig{..} = do
now <- liftIO $ getTime Monotonic now <- liftIO $ getTime Monotonic
let lastTime = sysTime ad let lastTime = sysTime ad
-- clean draw requests from last run -- clean draw requests from last run
mapM_ (invalidateDrawRequest (drawStride ad) (drawCPP ad)) (drawStack ad) -- mapM_ (invalidateDrawRequest (drawStride ad) (drawCPP ad)) (drawStack ad)
-- clean the renderer form last time -- clean the renderer form last time
-- SDL.clear renderer -- SDL.clear renderer
-- compute dt and update elapsedTime -- compute dt and update elapsedTime
@ -157,11 +157,11 @@ withAffection AffectionConfig{..} = do
liftIO $ flush liftIO $ flush
-- handle all new draw requests -- handle all new draw requests
ad2 <- get ad2 <- get
clear <- catMaybes <$> -- clear <- catMaybes <$>
mapM (handleDrawRequest (drawStride ad) (drawCPP ad)) (drawStack ad2) -- mapM (handleDrawRequest (drawStride ad) (drawCPP ad)) (drawStack ad2)
-- save all draw requests to clear in next run -- -- save all draw requests to clear in next run
put $ ad2 -- put $ ad2
{ drawStack = clear } -- { drawStack = clear }
-- actual drawing -- actual drawing
SDL.glSwapWindow window SDL.glSwapWindow window
-- SDL.present (windowRenderer ad2) -- SDL.present (windowRenderer ad2)