diff --git a/src/Affection/Draw.hs b/src/Affection/Draw.hs index 59cf3fe..6237c83 100644 --- a/src/Affection/Draw.hs +++ b/src/Affection/Draw.hs @@ -101,7 +101,7 @@ handleDrawRequest -> Affection us (Maybe DrawRequest) handleDrawRequest pixels format stride cpp dr@DrawRequest{..} = do ad <- get - let !surf = drawSurface ad + let surf = drawSurface ad liftIO $ SDL.lockSurface surf liftIO $ G.gegl_node_blit requestNode @@ -113,7 +113,7 @@ handleDrawRequest pixels format stride cpp dr@DrawRequest{..} = do stride [G.GeglBlitDefault] liftIO $ SDL.unlockSurface surf - liftIO $ SDL.updateWindowSurface $ drawWindow ad + -- liftIO $ SDL.updateWindowSurface $ drawWindow ad if requestPersist then return Nothing @@ -143,7 +143,7 @@ invalidateDrawRequest pixels format stride cpp dr@DrawRequest{..} = do stride [G.GeglBlitDefault] liftIO $ SDL.unlockSurface surf - liftIO $ SDL.updateWindowSurface $ drawWindow ad + -- liftIO $ SDL.updateWindowSurface $ drawWindow ad -- | compute color for a single pixel colorize