untapCard :: Monad m => CardID -> StateT GameState m ()
untapCard cID = _card cID.tapped .= False
untapCard :: Monad m => CardID -> StateT GameState m ()
untapCard cID = _card cID.tapped .= False
untapCard cID = _card cID.tapped .= False