Reify debug booleans

2022-06-17 21:34:00 +01:00
parent 261bb0bb6b
commit 5053590792
10 changed files with 73 additions and 49 deletions
@@ -90,7 +90,7 @@ doSideEffects u = do
    u' <- _sideEffects w u
    endTicks <- SDL.ticks
    let lastFrameTicks = _frameTimer preData
-    when (_debug_seconds_frame $ _config u) $ void $ renderFoldable
+    when (debugOn Show_ms_frame $ _config u) $ void $ renderFoldable
        (_pictureShaders $ _renderData preData)
        (setDepth (-1)
            . translate (-0.5) (-0.8) . scale 0.0005 0.0005