1 files changed, 2 insertions, 1 deletions

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