Cleanup

src/Dodge/Render/Walls.hs

@@ -6,7 +6,6 @@ import Dodge.Zoning.Base
 import Dodge.Zoning.Wall
 import Dodge.Data
 import Dodge.Wall.Draw
-import Dodge.Zone
 import Dodge.Base.Wall
 import Geometry
 import ShapePicture
@@ -14,12 +13,7 @@ import ShapePicture
 import Control.Lens
 --import Data.Maybe
 import qualified Control.Foldl as L
-import qualified Streaming.Prelude as S
---import Data.List
---import qualified IntMapHelp as IM
-wallsToDraw
-    :: World
-    -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )
+wallsToDraw :: World -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )
 wallsToDraw w
     = ( wls, wins,spic)
   where