Refactor modules

src/Dodge/Layout.hs

@@ -5,6 +5,7 @@ import Dodge.LevelGen
 import Dodge.LevelGen.StaticWalls
 --import Dodge.LevelGen.Data
 import Dodge.Base
+import Dodge.Base.Zone
 --import Dodge.RandomHelp
 import Dodge.Graph
 import Dodge.Layout.Tree.Polymorphic (applyToRoot)
@@ -64,7 +65,7 @@ initializeStaticWalls :: World -> World
 initializeStaticWalls w = w & staticWalls %~ (\wls' -> foldl' (flip wallToWall) wls' wls)
     & walls %~ IM.filter (not . wlIsWall)
   where
-    wls = [wl | wl@Wall{} <- (IM.elems $ _walls w)]
+    wls = [wl | wl@Wall{} <- IM.elems $ _walls w]
     wlIsWall Wall{} = True
     wlIsWall _ = False