Give proper foldl' and foldr methods for LTrees

2021-07-22 02:00:18 +02:00
parent 9f37ecb204
commit 315cf780bf
4 changed files with 89 additions and 45 deletions
@@ -78,7 +78,7 @@ doDrawing pdata w = do
    if w ^. config . wall_textured
        then renderTextureWalls pdata nWalls
        else renderBlankWalls pdata nWalls
-    _ <- renderFoldable pdata $ picToLTree (Just 0) (polysToPic $ foregroundPics w)
+    _ <- renderFoldable pdata $ (picToAlt (Just 0) (polysToPic $ foregroundPics w) :: [RenderType])
    _ <- renderFoldable pdata $ picToLTree (Just 0) pic
    _ <- renderShader (_textureArrayShader pdata) (_floorTiles w)