start debug mode

2021-03-30 22:43:40 +01:00
parent e264857831
commit 5e885b879b
2 changed files with 24 additions and 10 deletions
@@ -69,12 +69,17 @@ main = do

            endTicks <- SDL.ticks
            let lastFrameTicks = _frameTimer preData
-            renderFoldable 
-                (_renderData preData) 
-                (picToLTree Nothing . setLayer 1 . setDepth (-1) 
-                    . translate (-0.5) (-0.8) . scale 0.0005 0.0005 
-                    . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
-                )
+            if (_debugMode w) then
+                    renderFoldable 
+                        (_renderData preData) 
+                        (picToLTree Nothing . setLayer 1 . setDepth (-1) 
+                            . translate (-0.5) (-0.8) . scale 0.0005 0.0005 
+                            . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
+                        )
+                else
+                    -- ? Why (or rather how to avoid)
+                    return endTicks
+
            return $ preData & soundData  .~ newSoundData
                             & frameTimer .~ endTicks
        )