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
@@ -91,7 +91,7 @@ doRoomInPlacements w rm = foldr f (w, rm) $ _rmInPmnt rm
 doOutPlacements :: GenWorld -> GenWorld
 doOutPlacements w =
    let ((pmnts, gw), rms) = mapAccumR doRoomOutPlacements (IM.empty, w) (_genRooms w)
-     in gw & genRooms .~ rms & genPmnt .~ pmnts
+     in gw & genRooms .~ rms & genPmnt <>~ pmnts

 doRoomOutPlacements ::
    (IM.IntMap [Placement], GenWorld) ->