From 64be9ee7a82df3d40bae1ce470561314f5d17e69 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Wed, 23 Mar 2022 09:48:54 +0000
Subject: [PATCH] Add file

---
 src/Dodge/Damage.hs | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 src/Dodge/Damage.hs

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