Move to using RoomLink datatype

src/Dodge/Room/LongDoor.hs

@@ -3,6 +3,7 @@
  -}
 module Dodge.Room.LongDoor where
 import Dodge.Data
+import Dodge.RoomLink
 import Dodge.Base
 import Dodge.Default.Room
 import Dodge.LevelGen.Data
@@ -32,10 +33,10 @@ twinSlowDoorRoom
     -> Room
 twinSlowDoorRoom w h x = defaultRoom
     { _rmPolys  = ps
-    , _rmOutLinks  =
+    , _rmOutLinks  = map (uncurry outLink)
         [ (V2 w (h/2) , negate $ pi/2)
         , (V2 (-w) (h/2) , pi/2) ]
-    , _rmInLinks = [ (V2 0 (-h), pi) ]
+    , _rmInLinks = [uncurry inLink (V2 0 (-h), pi) ]
     , _rmPath   = []
     , _rmPmnts     = 
         [ pContID (PS (V2 0 (h-5)) pi) ( PutButton $ makeButton col id)