Cleanup

2026-03-26 13:03:58 +00:00
parent 5a6479faa8
commit 40f5d22d88
3 changed files with 11 additions and 60 deletions
@@ -63,7 +63,7 @@ divideDoorPane mid wl soff dr ppairs g = case ppairs of
    thedoor = dr & drPushedBy .~ maybe PushesItself PushedBy mid

 putAutoDoor :: Point2 -> Point2 -> Placement
-putAutoDoor a b = Placement (PS 0 0) (PutCoord a) Nothing Nothing $ \_ apl ->
+putAutoDoor a b = pt0 (PutCoord a) $ \apl ->
    Just $
        Placement (PS 0 0) (PutCoord b) Nothing Nothing $ \w bpl ->
            let x = w ^?! gwWorld . coordinates . ix (apl ^?! plMID . _Just)