Cleanup

2025-10-24 10:58:01 +01:00
parent c39f99e146
commit 18ab89d3f2
7 changed files with 8 additions and 72 deletions
@@ -134,11 +134,8 @@ obstructPathsCrossing ::
    Point2 ->
    Point2 ->
    World ->
-    (World, [(Int,Int)])
-obstructPathsCrossing obs s e w =
-    ( w & cWorld . incGraph %~ updateincedges
-    , inces
-    )
+    World
+obstructPathsCrossing obs s e w = w & cWorld . incGraph %~ updateincedges
  where
    updateincedge = flip $ updateEdge (S.union obs) 
    updateincedges gr = foldl' updateincedge gr inces