Move to using RoomLink datatype

src/Dodge/Room/Room.hs

@@ -1,5 +1,6 @@
 module Dodge.Room.Room where
 import Dodge.Data
+import Dodge.RoomLink
 import Dodge.Default.Room
 import Dodge.Item.Weapon.BulletGuns
 import Dodge.Item.Weapon.Launcher
@@ -48,8 +49,8 @@ roomC w h = do
 roomPadCut :: [Point2] -> Point2 -> Room
 roomPadCut ps p = defaultRoom
     { _rmPolys = [ps]
-    , _rmOutLinks = [(p,0)]
-    , _rmInLinks = [(V2 0 0,pi)]
+    , _rmOutLinks = muout [(p,0)]
+    , _rmInLinks = muin [(V2 0 0,pi)]
     , _rmPath  = [(V2 0 0,p)]
     }
 roomPillars :: Room
@@ -201,8 +202,8 @@ roomCenterPillar = changeLinkTo ((\p -> dist p (V2 120 0) < 10) . fst)
 roomOctogon :: Room
 roomOctogon = defaultRoom
     { _rmPolys = [poly ]
-    , _rmOutLinks = init lnks
-    , _rmInLinks = [last lnks]
+    , _rmOutLinks = muout $ init lnks
+    , _rmInLinks = muin [last lnks]
     , _rmPath  = allPairs $ map fst lnks -- this is too much
     , _rmPmnts = []
     , _rmBound = [map toV2 [(-20,30),(20,30),(60,70),(60,110),(20,150),(-20,150),(-60,110),(-60,70)] ]
@@ -224,8 +225,8 @@ roomOctogon = defaultRoom
 roomNgon :: Int -> Float -> Room
 roomNgon n x = defaultRoom
     { _rmPolys = [poly]
-    , _rmOutLinks = init lnks
-    , _rmInLinks = [last lnks]
+    , _rmOutLinks = muout $init lnks
+    , _rmInLinks = muin[last lnks]
     , _rmPath  = [] -- TODO
     , _rmPmnts = []
     , _rmBound = [poly]
@@ -347,8 +348,8 @@ deadEndRoom :: Room
 deadEndRoom = defaultRoom
     { _rmPolys = [rectNSWE 40 (-20) (-20) 20
                  ]
-    , _rmOutLinks = init lnks
-    , _rmInLinks = [last lnks]
+    , _rmOutLinks = muout $init lnks
+    , _rmInLinks = muin $[last lnks]
     , _rmPath  = []
     , _rmPmnts    = [sPS (V2 0 (-10)) 0 putLamp]
     , _rmBound = [rectNSWE 20 (-20) (-30) 30]