Cleanup

src/Dodge/PrWdLsLs.hs

@@ -1,4 +1,4 @@
-module Dodge.PrWdLsLs where
+module Dodge.PrWdLsLs (doPrWdLsLs) where
 
 import Control.Lens
 import Dodge.Data.World

src/Dodge/Wall/Create.hs

@@ -12,5 +12,5 @@ createWall wl w =
         & insertWallInZones newwl
     )
   where
-    newwl = wl{_wlID = wlid}
-    wlid = IM.newKey $ w ^. cWorld . lWorld . walls --_walls (_cWorld w)
+    newwl = wl & wlID .~ wlid
+    wlid = IM.newKey $ w ^. cWorld . lWorld . walls