Merge Picture and RenderType datatypes

2021-07-25 02:12:55 +02:00
parent 84a9badea8
commit f5873db68d
8 changed files with 143 additions and 238 deletions
@@ -57,7 +57,7 @@ doSideEffects preData w = do
    let lastFrameTicks = _frameTimer preData
    when (_displaySecondsPerFrame $ _debugFlags w) $ void $ renderFoldable
                (_renderData preData)
-                (picToLTree Nothing . setLayer 1 . setDepth (-1)
+                (map snd $ setDepth (-1)
                    . translate (-0.5) (-0.8) . scale 0.0005 0.0005
                    . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
                )