Fix incorrect creation of unused links pos

src/Dodge/Room/Link.hs

@@ -14,7 +14,6 @@ module Dodge.Room.Link
     , randomiseAllLinks
     , shuffleLinks
     , filterLinks
-    , randomiseOutLinks
     , chooseOneInLink
     , restrictRMInLinksPD
     ) where
@@ -47,13 +46,6 @@ restrictToFstInLink = rmLinks %~ f
         | otherwise = rl : f xs
     f [] = []
 
-{- Shuffle the initial links of a room randomly. -}
-randomiseOutLinks :: RandomGen g => Room -> State g Room
-randomiseOutLinks r = do
-    let (outs,xs) = partition (S.member OutLink . _rlType) $ _rmLinks r
-    newLinks <- shuffle outs
-    return $ r {_rmLinks = newLinks ++ xs }
-
 sortOutLinksOn :: Ord b => ((Point2,Float) -> b) -> Room -> Room
 sortOutLinksOn f = overLnkType OutLink $ sortOn (f . lnkPosDir)
 
@@ -95,8 +87,8 @@ shiftRoomBy shift r = r
     & rmShift %~ shiftPosDirBy shift
     & rmFloor . tiles %~ map 
         ( (tilePoly %~ map (shiftPointBy shift))
-        . (tileZero %~ shiftPointBy shift    )
-        . (tileX    %~ shiftPointBy shift         )
+        . (tileZero %~ shiftPointBy shift      )
+        . (tileX    %~ shiftPointBy shift      )
         )
     & rmViewpoints %~ map (shiftPointBy shift)
 
@@ -109,8 +101,8 @@ moveRoomBy shift r = r
     & rmPmnts %~ map (shiftPlacement shift)
     & rmFloor . tiles %~ map 
         ( (tilePoly %~ map (shiftPointBy shift))
-        . (tileZero %~ shiftPointBy shift    )
-        . (tileX    %~ shiftPointBy shift         )
+        . (tileZero %~ shiftPointBy shift      )
+        . (tileX    %~ shiftPointBy shift      )
         )
     & rmViewpoints %~ map (shiftPointBy shift)
 
@@ -124,8 +116,7 @@ shiftRoomShiftToLink l inlink r
     (p,a) = inlink
 -- NOTE placements, when placed, will be shifted by the value _rmShift
 shiftRoomShiftBy :: (Point2,Float) -> Room -> Room
-shiftRoomShiftBy shift r = r
-    & rmShift %~ shiftPosDirBy shift
+shiftRoomShiftBy shift = rmShift %~ shiftPosDirBy shift
 
 shiftPosDirBy :: (Point2,Float) -> (Point2,Float) -> (Point2,Float)
 shiftPosDirBy (pos,rot) (p,r) = (shiftPointBy (pos,rot) p, r + rot)