Attempt to improve perfomance

2022-08-25 09:52:12 +01:00
parent 6973663055
commit 920bfdbc8e
18 changed files with 60 additions and 311 deletions
@@ -239,7 +239,7 @@ drawInspectWall w wl =
 drawDoorPaths :: World -> Int -> Picture
 drawDoorPaths w drid = fromMaybe mempty $ do
    paths <- w ^? cWorld . doors . ix drid . drObstructs
-    return $ foldMap (drawPathEdge . (^. _3)) paths
+    return $ foldMap' (drawPathEdge . (^. penPathEdge)) paths

 drawPathEdge :: PathEdge -> Picture
 drawPathEdge pe =