From c95106d9230df8a8cd8536b6fd1710550ab68128 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Sat, 9 Jul 2016 12:48:53 +0200
Subject: no such thing as armor against fatigue

---
 src/Sequence/Contact/Types.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/Sequence')

diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs
index 4bd9790..2e8adcb 100644
--- a/src/Sequence/Contact/Types.hs
+++ b/src/Sequence/Contact/Types.hs
@@ -194,7 +194,8 @@ absorb armor = absorb' Map.empty
       return . Map.unionWith (+) (leftover mass dType . clamp $ dmg - armor') $ if old /= current then new else current
 
     wArmor :: DamageType -> Formula Stats
-    wArmor Passthrough = return $ 0
+    wArmor Passthrough = 0
+    wArmor Fatigue = 0
     wArmor Electric = (2 *) . maximum <$> mapM wArmor ([minBound..maxBound] \\ [Electric] :: [DamageType])
     wArmor x = armor x
 
-- 
cgit v1.2.3