removeMod :: CardMod -> Card -> Card
removeMod (StatMod (p,t)) = (stats._1 -~ p) . (stats._2 -~ t)
removeMod :: CardMod -> Card -> Card
removeMod (StatMod (p,t)) = (stats._1 -~ p) . (stats._2 -~ t)
removeMod (StatMod (p,t)) = (stats._1 -~ p) . (stats._2 -~ t)