From b2da2d287a374eacc07ad75da14a92ae5d03b502 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Thu, 23 Nov 2017 19:37:36 +0100
Subject: [PATCH] post merge cleanup

---
 src/Affection.hs | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/Affection.hs b/src/Affection.hs
index 636750e..60191d3 100644
--- a/src/Affection.hs
+++ b/src/Affection.hs
@@ -135,7 +135,7 @@ withAffection AffectionConfig{..} = do
         now      <- liftIO $ getTime Monotonic
         let lastTime = sysTime ad
         -- 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
         -- SDL.clear renderer
         -- compute dt and update elapsedTime
@@ -157,11 +157,11 @@ withAffection AffectionConfig{..} = do
         liftIO $ flush
         -- handle all new draw requests
         ad2 <- get
-        clear <- catMaybes <$>
-          mapM (handleDrawRequest (drawStride ad) (drawCPP ad)) (drawStack ad2)
-        -- save all draw requests to clear in next run
-        put $ ad2
-          { drawStack = clear }
+        -- clear <- catMaybes <$>
+        --   mapM (handleDrawRequest (drawStride ad) (drawCPP ad)) (drawStack ad2)
+        -- -- save all draw requests to clear in next run
+        -- put $ ad2
+        --   { drawStack = clear }
         -- actual drawing
         SDL.glSwapWindow window
         -- SDL.present (windowRenderer ad2)