Improve debugDraw

src/Dodge/Placement/PlaceSpot.hs

@@ -7,7 +7,7 @@ module Dodge.Placement.PlaceSpot
     ) where
 import Dodge.Placement.Shift
 import Dodge.Data
-import Dodge.Path
+--import Dodge.Path
 import Dodge.Placement.PlaceSpot.Block
 import Dodge.Placement.PlaceSpot.TriggerDoor
 import Dodge.Default.Wall

src/Dodge/Placement/PlaceSpot/Block.hs

@@ -9,7 +9,7 @@ import Dodge.Path
 import Dodge.Block.Debris
 --import Dodge.LevelGen.LevelStructure
 import Dodge.Base
-import Dodge.Zone
+--import Dodge.Zone
 import Geometry
 import qualified IntMapHelp as IM
 
@@ -94,7 +94,6 @@ plLineBlock basePane blwidth a b gw = ( 0
         ,_wlLine = ps
         ,_wlDraw = visStatus
         }
-    listWalls = concat $ zipWith makeWallAt blockCenPs is
 
 -- | Must be done after inserting the block
 insertWalls :: Int -> [Wall] -> World -> World