Refactor, try to limit dependencies

src/Dodge/Wall/Create.hs

@@ -1,16 +1,16 @@
-module Dodge.Wall.Create
-    where
-import Dodge.Data
-import Dodge.Wall.Zone
+module Dodge.Wall.Create where
 
 import Control.Lens
+import Dodge.Data.World
+import Dodge.Wall.Zone
 import qualified IntMapHelp as IM
 
-createWall :: Wall -> World -> (Int,World)
-createWall wl w = (wlid
+createWall :: Wall -> World -> (Int, World)
+createWall wl w =
+    ( wlid
     , w & cWorld . walls %~ IM.insert wlid newwl
         & insertWallInZones newwl
     )
   where
-    newwl = wl {_wlID = wlid}
+    newwl = wl{_wlID = wlid}
     wlid = IM.newKey $ _walls (_cWorld w)