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)