lookup x = R $ do
        deck <- get
        cardName <- unR x
        return $ Map.lookup cardName deck

    move x = const <$> x

    -- | Lookup a card in the deck
    lookup :: repr Text -> repr (Maybe Card)

    -- | Move a card to another category
    move :: repr Category -> repr (Category -> Category)