tapCard :: Monad m => CardID -> StateT GameState m ()
tapCard cID = _card cID.tapped .= True
tapCard :: Monad m => CardID -> StateT GameState m ()
tapCard cID = _card cID.tapped .= True
tapCard cID = _card cID.tapped .= True