Cleanup

2025-10-25 10:17:59 +01:00
parent c2cc38a642
commit 0da3816664
5 changed files with 119 additions and 210 deletions
@@ -134,7 +134,7 @@ placeSpotID rid ps pt w = case pt of
    PutMachine pps mc mitm -> plMachine (map doShift pps) mc mitm p rot w
    PutLS ls -> plNewUpID (gwWorld . cWorld . lWorld . lightSources) lsID (mvLS p' rot ls) w
    RandPS _ -> error "RandPS should not be reachable here" --evaluateRandPS rid rgn ps w
-    PutDoor dr wl -> plDoor' (dr & drZeroPos %~ pashift & drOnePos %~ pashift) wl w
+    PutDoor dr wl -> plDoor (dr & drZeroPos %~ pashift & drOnePos %~ pashift) wl w
    PutCoord cp -> plNewID (gwWorld . coordinates) (doShift cp) w
    PutBlock bl wl ps' ->
        plBlock