blob: 38c2c84ff870fa5abffbf528f03157bd6731fb1d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{-# 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 -}
|