--------------------------------------------------------------------------------
-- Generic Actions                                                            --
--------------------------------------------------------------------------------

reveal :: Monad m => CardID -> StateT GameState m ()
reveal = (revealedCard .=) <=< (return . Just)
reveal :: Monad m => CardID -> StateT GameState m ()
reveal = (revealedCard .=) <=< (return . Just)
reveal = (revealedCard .=) <=< (return . Just)