Transition to new room datatypes, first separate out/inlinks

src/Dodge/Room/Door.hs

@@ -15,7 +15,8 @@ import Control.Lens
 door :: Room
 door = defaultRoom
     { _rmPolys = [rectNSWE 40 0 0 40]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = [(V2 20 35,V2 20 5)]
 -- door extends into side walls (for shadows as rendered 12/03)
     , _rmPmnts = [putAutoDoor (V2 0 20) (V2 40 20)]
@@ -29,7 +30,8 @@ door = defaultRoom
 switchDoorRoom :: Room
 switchDoorRoom = defaultRoom
     { _rmPolys = [rectNSWE 40 0 0 40]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = [(V2 20 35,V2 20 5)]
     , _rmPartPmnt = Just f
 -- door extends into side walls (for shadows as rendered 12/03)