Make Placement into a product type

src/Dodge/Room/RezBox.hs

@@ -95,7 +95,7 @@ rezBoxesWpCrit = do
     theweapon <- randBlockBreakWeapon
     let bottomEdgeTest (V2 _ y, _) = y < 1
         aroom = rezInvBox thecol
-    let centralRoom = (roomRectAutoLinks w h){_rmPmnts = []}
+    centralRoom <- roomRectAutoLinks w h <&> rmPmnts .~ []
     onwardpassage <-
         over root (rmConnectsTo .~ S.member (OnEdge West)) <$> maybeBlockedPassage
     let n = length $ filter bottomEdgeTest $ map lnkPosDir $ _rmLinks centralRoom
@@ -126,9 +126,8 @@ rezBoxes = do
                 [door & rmConnectsTo .~ S.member (OnEdge South)]
                 (rezInvBox thecol)
     centralRoom <-
-        shuffleLinks $
-            (roomRectAutoLinks w h){_rmPmnts = []}
-                & rmLinks %~ setInLinks bottomEdgeTest
+        shuffleLinks =<< (roomRectAutoLinks w h <&> rmPmnts .~ []
+                <&> rmLinks %~ setInLinks bottomEdgeTest)
     let n = length $ filter bottomEdgeTest $ _rmLinks centralRoom
     return
         . tToBTree "rezBoxes"