gistfile1.hs

module Language.Styx.AST where

data Name a
  = Name a [String]
  | UnitTypeName a
  | FunctionTypeName a Name Name
  deriving (Show)

data Def a
  = UseDef a [String]
  | LetDef a String [LetParameter a] (Maybe (Name a)) (Expr a)
  deriving (Show)

data LetParameter a = LetParameter a String (Name a) deriving (Show)

data Expr a
  = NameExpr a (Name a)
  | ECMAScriptExpr a [ECMAScriptCapture a] (Name a) String
  deriving (Show)

data ECMAScriptCapture a
  = NameECMAScriptCapture a String (Name a)
  | ContinueECMAScriptCapture a String
  deriving (Show)