Transition to new room datatypes, first separate out/inlinks

src/Dodge/Room/Corridor.hs

@@ -16,7 +16,8 @@ import Data.Bifunctor
 corridor :: Room
 corridor = defaultRoom
     { _rmPolys = [poly]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
     , _rmPmnts    = [ spanLightI (V2 0 40) (V2 40 40) ]
     , _rmBound = [ rectNSWE 50 30 0 40 ]
@@ -47,7 +48,8 @@ corridorN :: Room
 corridorN = defaultRoom
     { _rmPolys = [rectNSWE 80 0 0 40
                  ]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = pth
     , _rmPmnts    = []
     , _rmBound = [ rectNSWE 50 30 0 40 ]
@@ -60,7 +62,8 @@ corridorWallN :: Room
 corridorWallN = defaultRoom
     { _rmPolys = [rectNSWE 70 0 0 40
                  ]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = pth
     , _rmPmnts    = []
     , _rmBound = [ rectNSWE 50 30 0 40 ]
@@ -75,7 +78,8 @@ tEast = defaultRoom
     { _rmPolys = [rectNSWE 80 0  (-20) 20
                  ,rectNSWE 80 40 (-40) 40
                  ]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = concatMap (doublePair . (,) (V2 0 60) . fst) lnks
     , _rmPmnts    = []
     , _rmBound = [ rectNSWE 70 10 0 40 ]
@@ -91,7 +95,8 @@ tWest = defaultRoom
     { _rmPolys = [rectNSWE 80 0  (-20) 20
                  ,rectNSWE 80 40 (-40) 40
                  ]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = concatMap (doublePair . (,) (V2 0 60) . fst) lnks
     , _rmPmnts    = []
     , _rmBound = [ rectNSWE 70 10 0 40 ]