Commit before attempting to fix placement shifting bug

src/Dodge/Room/Link.hs

@@ -6,6 +6,7 @@ the outgoing links.  -}
 module Dodge.Room.Link
     ( shiftRoomShiftToLink
     , shiftRoomBy
+    , moveRoomBy
     , shiftLinkBy
     , doRoomShift
     , sortOutLinksOn
@@ -21,6 +22,7 @@ module Dodge.Room.Link
     ) where
 import Dodge.ShiftPoint
 --import Dodge.Placement.PlaceSpot
+import Dodge.Placement.Shift
 import Dodge.LevelGen.Data
 import Dodge.RandomHelp
 import Geometry
@@ -141,6 +143,20 @@ shiftRoomBy shift r = r
         )
     & rmViewpoints %~ map (shiftPointBy shift)
 
+moveRoomBy :: (Point2,Float) -> Room -> Room
+moveRoomBy shift r = r
+    & rmPolys %~ fmap (map (shiftPointBy shift))
+    & rmLinks %~ fmap (shiftLinkBy shift)
+    & rmPath  %~ map (shiftPathBy shift)
+    & rmBound %~ fmap (map (shiftPointBy shift))
+    & rmPmnts %~ map (shiftPlacement shift)
+    & rmFloor . tiles %~ map 
+        ( (tilePoly %~ map (shiftPointBy shift))
+        . (tileZero %~ shiftPointBy shift    )
+        . (tileX    %~ shiftPointBy shift         )
+        )
+    & rmViewpoints %~ map (shiftPointBy shift)
+
 shiftRoomShiftToLink :: (Point2,Float) -> (Point2,Float) -> Room -> Room
 shiftRoomShiftToLink l inlink r 
     = shiftRoomShiftBy l