Move to using RoomLink datatype

src/Dodge/Debug/LinkDecoration.hs

@@ -3,6 +3,7 @@ module Dodge.Debug.LinkDecoration
     , addRoomPolyDecorations
     ) where
 import Dodge.Data
+import Dodge.RoomLink
 --import Dodge.Base
 import Dodge.LevelGen.Data
 import Dodge.Picture.Layer
@@ -22,7 +23,7 @@ addRoomLinkDecorations rms w = w & decorations %~
     IM.insertWithNewKeys (map roomLinkDecorations rms)
 
 roomLinkDecorations :: Room -> Picture
-roomLinkDecorations rm = pictures . map linkDecoration $ _rmOutLinks rm ++ _rmInLinks rm
+roomLinkDecorations rm = pictures . map linkDecoration $ map lnkPosDir $ _rmOutLinks rm ++ _rmInLinks rm
 
 linkDecoration :: (Point2,Float) -> Picture
 linkDecoration (p,a) = setLayer 1 . onLayer DebugLayer . color red $ line [p, p +.+ 20 *.* unitVectorAtAngle (a - pi/2)]