Cleanup

2025-10-16 23:04:17 +01:00
parent 0f43e1ad8f
commit 0481f6e6f2
6 changed files with 145 additions and 292 deletions
@@ -145,7 +145,8 @@ addEdges nodemap gr = foldl' f (mempty, gr)
        theedgedata = PathEdgeNodes (g a) (g b) (PathEdge a b (dist a b) mempty)
    g a = nodemap M.! a

-obstructPathsCrossing :: EdgeObstacle -> Point2 -> Point2 -> World -> (World, Set PathEdgeNodes)
+obstructPathsCrossing :: EdgeObstacle -> Point2 -> Point2 -> World 
+    -> (World, Set PathEdgeNodes)
 obstructPathsCrossing obstacletype sp' ep w =
    ( w & cWorld . pathGraph %~ updateedges
    , es