From d4a5f97465cb58c05e17dcf65db573b154cbac35 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <pngwjpgh@users.noreply.github.com>
Date: Sun, 10 Jul 2016 19:14:05 +0200
Subject: =?UTF-8?q?Vehicles=20don=C2=B4t=20have=20infinite=20electrical=20?=
 =?UTF-8?q?resistance?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

(limited to 'src')

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
-- 
cgit v1.2.3