Move to using RoomLink datatype

src/Dodge/Room/Start.hs

@@ -2,6 +2,7 @@ module Dodge.Room.Start where
 import Dodge.LevelGen.Data
 --import Dodge.PlacementSpot
 import Dodge.Room.RunPast
+import Dodge.RoomLink
 import Dodge.Room.LasTurret
 import Dodge.Data
 import Dodge.Default
@@ -135,7 +136,7 @@ rezBoxesWpCrit = do
     centralRoom <- filterSortOutLinksOn bottomEdgeTest ((\(V2 a b) -> (b,a)) . fst) <$>
             (randomiseOutLinks =<< changeLinkTo bottomPassDownTest 
                     ((roomRectAutoLinks w h) {_rmPmnts = []}))
-    let n = length $ filter bottomEdgeTest $ _rmOutLinks centralRoom
+    let n = length $ filter bottomEdgeTest $ map lnkPosDir $ _rmOutLinks centralRoom
     i <- state $ randomR (0,n-3)
     j <- state $ randomR (i,n-2)
     blcor <- blockedCorridor'
@@ -162,7 +163,7 @@ rezBoxesWp = do
     centralRoom <- randomiseOutLinks =<< changeLinkTo bottomEdgeTest 
         ((roomRectAutoLinks w h) {_rmPmnts = []})
     blcor <- blockedCorridor'
-    let n = length $ filter bottomEdgeTest $ _rmOutLinks centralRoom
+    let n = length $ filter bottomEdgeTest $ map lnkPosDir $_rmOutLinks centralRoom
     let rezrooms = map adddoor 
             $ wpAdd theweapon aroom : replicate (n-2) aroom
     centralRoom' <- changeLinkFrom bottomEdgeTest centralRoom
@@ -183,7 +184,7 @@ rezBoxes = do
         dbox = treeFromPost [PassDown door] (PassDown $ rezInvBox thecol)
     centralRoom <- randomiseOutLinks =<< changeLinkTo bottomEdgeTest 
         ((roomRectAutoLinks w h) {_rmPmnts = []})
-    let n = length $ filter bottomEdgeTest $ _rmOutLinks centralRoom
+    let n = length $ filter bottomEdgeTest $ map lnkPosDir $_rmOutLinks centralRoom
     centralRoom' <- changeLinkFrom bottomEdgeTest centralRoom
     return $ treeFromTrunk [PassDown $ rezBox thecol
         , PassDown door