Attempt to stop reuse of link placement spots

src/Dodge/Layout.hs

@@ -42,7 +42,8 @@ generateLevelFromRoomList gr w
     = initWallZoning 
     . setupWorldBounds
     -- . flip (foldr $ flip placeSpot) plmnts
-    . flip (foldl' placeSpot) plmnts
+    -- . flip (foldl' placeSpot) plmnts
+    . flip (foldl' doRoomPlacements) rs
     $ w { _walls        = wallsFromRooms rs
         , _floorTiles   = floorsFromRooms rs
         , _gameRooms    = gameRoomsFromRooms rs
@@ -56,6 +57,9 @@ generateLevelFromRoomList gr w
     rs = zipWith addTile zs . evalState gr $ _randGen w
     zs = map fromIntegral $ randomRs (0,63::Int) $ _randGen w
 
+doRoomPlacements :: World -> Room -> World
+doRoomPlacements w rm = fst $ foldl' placeSpot' (w,rm) $ _rmPS rm
+
 updatePSLnkUsing :: (Point2,Float) -> PlacementSpot -> PlacementSpot
 updatePSLnkUsing pf PSLnk{_psLinkShift=f} = uncurry PS $ f pf
 updatePSLnkUsing _ ps = ps