diff --git a/src/Dodge/Damage.hs b/src/Dodge/Damage.hs
new file mode 100644
index 000000000..08a494345
--- /dev/null
+++ b/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