{-# LANGUAGE GADTs, DataKinds, OverloadedStrings #-}

module Events.Spec.Parse.AST
  ( AST(..)
  , pAST
  ) where

import Events.Spec.Types
import Events.Spec.Parse.Token

import Text.Megaparsec hiding (parse)
  
import Data.Typeable (Typeable)

data AST = AST
  deriving (Typeable)

pAST :: ParsecT Dec [SpecToken] m AST
pAST = mzero {- TODO -}