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