1 files changed, 1 insertions, 1 deletions

diff --git a/src/Sequence/Contact/Types.hs b/src/Sequence/Contact/Types.hs
index 1d057fd..ca7da1f 100644
--- a/src/Sequence/Contact/Types.hs
+++ b/src/Sequence/Contact/Types.hs
@@ -204,7 +204,7 @@ absorb armor dType (Finite -> dmg) = fmap ensureFinite <$> absorb' Map.empty dTy
     wArmor :: DamageType -> FormulaM Stats Int'
     wArmor Passthrough = 0
     wArmor Fatigue = 0
-    wArmor Electric = (2 *) . maximum <$> mapM wArmor ([minBound..maxBound] \\ [Electric] :: [DamageType])
+    wArmor Electric = (2 *) . maximum . filter isFinite <$> mapM wArmor ([minBound..maxBound] \\ [Electric] :: [DamageType])
     wArmor x = armor x
 
     clamp n