Refactor, try to limit dependencies

src/Dodge/Debug/LinkDecoration.hs

@@ -1,35 +1,35 @@
-module Dodge.Debug.LinkDecoration
-    ( addRoomLinkDecorations
-    , addRoomPolyDecorations
-    ) where
-import Dodge.Data
-import Dodge.RoomLink
---import Dodge.Base
---import Dodge.LevelGen.Data
-import Picture
-import qualified IntMapHelp as IM
-import Geometry.Data
-import Geometry.Vector
+module Dodge.Debug.LinkDecoration (
+    addRoomLinkDecorations,
+    addRoomPolyDecorations,
+) where
 
 import Control.Lens
+import Dodge.Data.GenWorld
+import Dodge.RoomLink
+import Geometry.Data
+import Geometry.Vector
+import qualified IntMapHelp as IM
+import Picture
 
 addRoomPolyDecorations :: [Room] -> World -> World
-addRoomPolyDecorations rms w = w & cWorld . decorations %~ 
-    IM.insertWithNewKeys (map roomPolyDecorations rms)
+addRoomPolyDecorations rms w =
+    w & cWorld . decorations
+        %~ IM.insertWithNewKeys (map roomPolyDecorations rms)
 
 addRoomLinkDecorations :: [Room] -> World -> World
-addRoomLinkDecorations rms w = w & cWorld . decorations %~ 
-    IM.insertWithNewKeys (map roomLinkDecorations rms)
+addRoomLinkDecorations rms w =
+    w & cWorld . decorations
+        %~ IM.insertWithNewKeys (map roomLinkDecorations rms)
 
 roomLinkDecorations :: Room -> Picture
 roomLinkDecorations rm = pictures . map (linkDecoration . lnkPosDir) $ _rmLinks rm
 
-linkDecoration :: (Point2,Float) -> Picture
-linkDecoration (p,a) = setLayer DebugLayer . color red $ line [p, p +.+ 20 *.* unitVectorAtAngle (a - pi/2)]
+linkDecoration :: (Point2, Float) -> Picture
+linkDecoration (p, a) = setLayer DebugLayer . color red $ line [p, p +.+ 20 *.* unitVectorAtAngle (a - pi / 2)]
 
 roomPolyDecorations :: Room -> Picture
 roomPolyDecorations rm = pictures . map polyWireFrame $ _rmPolys rm
 
 polyWireFrame :: [Point2] -> Picture
-polyWireFrame (x:xs) = setLayer DebugLayer . setDepth 50 . color green $ line $ (x:xs) ++ [x]
+polyWireFrame (x : xs) = setLayer DebugLayer . setDepth 50 . color green $ line $ (x : xs) ++ [x]
 polyWireFrame _ = undefined