Add file

src/Dodge/Damage.hs

@@ -0,0 +1,8 @@
+module Dodge.Damage where
+import Dodge.Data
+import Dodge.Wall.Damage
+import LensHelp
+
+damageCrWall :: Damage -> Either Creature Wall -> World -> World
+damageCrWall dt (Left cr) = creatures . ix (_crID cr) . crState . crDamage .:~ dt
+damageCrWall dt (Right wl) = damageWall dt wl