>>646
Like this?

-- Reverse of the main elemental cycle
elementalEffectiveness (Just (Air !potency1)) (Just (Lightning !potency2)) = 0.8 - elementalScaling * fromIntegral (potency2 - potency1)
elementalEffectiveness (Just (Earth !potency1)) (Just (Air !potency2)) = 0.8 - elementalScaling * fromIntegral (potency2 - potency1)
elementalEffectiveness (Just (Water !potency1)) (Just (Earth !potency2)) = 0.8 - elementalScaling * fromIntegral (potency2 - potency1)
elementalEffectiveness (Just (Fire !potency1)) (Just (Water !potency2)) = 0.8 - elementalScaling * fromIntegral (potency2 - potency1)
elementalEffectiveness (Just (Ice !potency1)) (Just (Fire !potency2)) = 0.8 - elementalScaling * fromIntegral (potency2 - potency1)
elementalEffectiveness (Just (Lightning !potency1)) (Just (Ice !potency2)) = 0.8 - elementalScaling * fromIntegral (potency2 - potency1)