-- Applies a static ability to the game until the end of the current turn
-- cID is the cardID that has this ability. ability is the ability to
-- apply. The standard rules for Static vs RecursiveStatic apply here.
untilEndOfTurn :: Monad m => CardID -> Ability -> StateT GameState m ()
untilEndOfTurn cID ability = untilEndOfTurnEffects <>= [(cID, ability)]
untilEndOfTurn :: Monad m => CardID -> Ability -> StateT GameState m ()
untilEndOfTurn cID ability = untilEndOfTurnEffects <>= [(cID, ability)]
untilEndOfTurn cID ability = untilEndOfTurnEffects <>= [(cID, ability)]