Start to remove explicit "outplacements"

2025-09-23 17:11:07 +01:00
parent ef90e5702b
commit a6ca90d7d8
15 changed files with 67 additions and 44 deletions
@@ -155,9 +155,9 @@ twoRoomPoss ::
    (RoomPos -> Room -> Bool) ->
    (PlacementSpot -> PlacementSpot -> Placement) ->
    Placement
-twoRoomPoss cond1 cond2 f = Placement (rprBool cond1) PutNothing Nothing $
+twoRoomPoss cond1 cond2 f = Placement (rprBool cond1) PutNothing Nothing Nothing $
    \_ pl1 -> Just $
-        Placement (rprBool cond2) PutNothing Nothing $
+        Placement (rprBool cond2) PutNothing Nothing Nothing $
            \_ pl2 -> Just $ f (_plSpot pl1) (_plSpot pl2)

 --isUnusedLnk :: RoomPos -> Bool