nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

post merge cleanup

Browse source
This commit is contained in:
nek0 2017-11-23 19:37:36 +01:00
parent f61377f43a
commit b2da2d287a
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Affection.hs
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)