{-# LANGUAGE GADTs #-}

module CardEffect
  where
{-
import Control.Monad.Operational

data DeckColumn = L | M | R
  deriving (Show, Eq, Ord)

data DeckRow = F | B
  deriving (Show, Eq, Ord)

data CardEffectOp a where
  QueueDmg :: Int -> Int -> DeckColumn -> CardEffectOp ()
  AddDP :: Int -> CardEffectOp ()
  AddCard ::

type CardEffect = Program CardEffectOp ()
-}
