Cleanup

2025-09-23 21:02:27 +01:00
parent 398b3a1342
commit 87f1444f5c
6 changed files with 8 additions and 7 deletions
@@ -122,7 +122,7 @@ placeSpotID rm ps pt w = case pt of
    PutWall qs wl -> (0, over gwWorld (placeWallPoly (map doShift qs) wl) w)
    PutNothing -> (0, w)
    PutID i -> (i, w)
-    PutWorldUpdate f -> (0, w & f ps)
+    PutWorldUpdate f -> (0, w & f rm ps)
    PutChasm ps' -> (0, w & gwWorld . cWorld . chasms .:~ map doShift ps')
  where
    p@(V2 px py) = _psPos ps