Refactor, try to limit dependencies

src/Dodge/Update/WallDamage.hs

@@ -1,15 +1,16 @@
 module Dodge.Update.WallDamage where
-import Dodge.Wall.Damage
-import Dodge.Data
 
-import qualified IntMapHelp as IM
 import Control.Lens
 import Data.Maybe
+import Dodge.Data.World
+import Dodge.Wall.Damage
+import qualified IntMapHelp as IM
 
 updateWallDamages :: World -> World
-updateWallDamages w = w
-    & cWorld . wallDamages .~ IM.empty
-    & flip (IM.foldrWithKey f) (_wallDamages (_cWorld w))
+updateWallDamages w =
+    w
+        & cWorld . wallDamages .~ IM.empty
+        & flip (IM.foldrWithKey f) (_wallDamages (_cWorld w))
   where
     f k dams w' = fromMaybe w' $ do
         wl <- w' ^? cWorld . walls . ix k