Work toward adding wiring

src/Dodge/Room/Corridor.hs

@@ -1,6 +1,6 @@
 module Dodge.Room.Corridor
     where
-import Dodge.Room.Data
+import Dodge.LevelGen.Data
 --import Dodge.Room.Foreground
 import Dodge.Default.Room
 --import Dodge.LevelGen.Data
@@ -29,26 +29,6 @@ corridor = defaultRoom
         ,((20,70), negate $ pi/6)
         ,((20,10)    ,pi)
         ]
-{- | Debug drop-in copy of corridor  -}
-corridorDebug :: Room
-corridorDebug = defaultRoom
-    { _rmPolys = 
-        [   rectNSWE 80 0 0 40
-        --,   [ (0,0), (0,200) , (200,100)]
-        --,   [ (0,0), (0,20) , (20,10)]
-        ]
-    , _rmLinks = lnks
-    , _rmPath  = concatMap (doublePair . (,) (V2 20 60) . fst) lnks
-    , _rmPmnts    = []
-    , _rmBound = [ rectNSWE 50 30 0 40 ]
-    }
-  where 
-    lnks = map (first toV2)
-        [((20,70)  ,0)
-        ,((20,70), pi/6)
-        ,((20,70), negate $ pi/6)
-        ,((20,10)    ,pi)
-        ]
 corridorN :: Room
 corridorN = defaultRoom
     { _rmPolys = [rectNSWE 80 0 0 40