Control wall damage effects using the wall

src/Dodge/WorldEvent/DamageBlock.hs

@@ -1,25 +0,0 @@
-module Dodge.WorldEvent.DamageBlock
-    ( damageBlocksBy
-    , damageWall
-    ) where
-import Dodge.Data
-import Dodge.Data.DamageType
-
-import Control.Lens
-
-damageWall :: DamageType -> Wall -> World -> World
-damageWall dt wl = case _wlStructure wl of
-    MachinePart mcid -> machines . ix mcid . mcDamage %~ (dt :)
-    BlockPart blid   -> blocks   . ix blid %~ damageBlockWith dt
-    _   -> id
-
-damageBlockWith :: DamageType -> Block -> Block
-damageBlockWith _ = id
-
-damageBlocksBy :: Int -> Wall -> World -> World
-damageBlocksBy x wl = case wl ^? wlStructure . wlStBlock of
-    Just blid -> blocks . ix blid . blHPs %~ reduceHeadBy x
-    Nothing   -> id
-  where
-    reduceHeadBy y (z:zs) = z - y : zs
-    reduceHeadBy _ [] = []

src/Dodge/WorldEvent/Shockwave.hs

@@ -6,7 +6,7 @@ module Dodge.WorldEvent.Shockwave
 import Dodge.Data
 import Dodge.Data.DamageType
 import Dodge.Creature.State.Data
-import Dodge.WorldEvent.DamageBlock
+import Dodge.Wall.Damage
 import Dodge.Base
 import Dodge.Zone
 import Dodge.Picture.Layer