Store picture shaders in mutable vector

2021-08-12 06:29:36 +02:00
parent 0138f7b940
commit 62af1402ad
4 changed files with 19 additions and 13 deletions
@@ -57,9 +57,8 @@ doSideEffects preData w = do
    endTicks <- SDL.ticks
    let lastFrameTicks = _frameTimer preData
    
-    shadV <- picShadToMV $ _pictureShaders $ (_renderData preData)
    when (_displaySecondsPerFrame $ _debugFlags w) $ void $ renderFoldable
-                shadV
+                (_pictureShaders $ _renderData preData)
                (setDepth (-1)
                    . translate (-0.5) (-0.8) . scale 0.0005 0.0005
                    . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)