|
module Frontend.Syntax where
|
|
|
|
import Frontend.Parser.Posn
|
|
import qualified Data.Text as T
|
|
|
|
data FeExpr var
|
|
= Ref var
|
|
| Con var
|
|
| App (FeExpr var) (FeExpr var)
|
|
| Lam (FePat var) (FeExpr var)
|
|
| Let [FeDecl var] (FeExpr var)
|
|
| Tuple [FeExpr var]
|
|
| Annot (FeExpr var) (FeType var)
|
|
|
|
| Literal Literal
|
|
|
|
| ParenExp (FeExpr var)
|
|
| SPExpr (FeExpr var) Posn Posn
|
|
deriving (Eq, Show, Ord)
|
|
|
|
instance HasPosn (FeExpr var) where
|
|
startPosn (SPExpr _ s _) = s
|
|
startPosn _ = error "no start posn in parsed expression?"
|
|
|
|
endPosn (SPExpr _ _ e) = e
|
|
endPosn _ = error "no end posn in parsed expression?"
|
|
|
|
span sp ep (SPExpr x _ _) = SPExpr x (startPosn sp) (endPosn ep)
|
|
span sp ep x = SPExpr x (startPosn sp) (endPosn ep)
|
|
|
|
data FePat var
|
|
= Var var
|
|
| Wildcard
|
|
|
|
| TupPat [FePat var]
|
|
| LitPat Literal
|
|
|
|
| ParenPat (FePat var) -- parsed parentheses
|
|
| SPPat (FePat var) Posn Posn
|
|
deriving (Eq, Show, Ord)
|
|
|
|
instance HasPosn (FePat var) where
|
|
startPosn (SPPat _ s _) = s
|
|
startPosn _ = error "no start posn in parsed expression?"
|
|
|
|
endPosn (SPPat _ _ e) = e
|
|
endPosn _ = error "no end posn in parsed pattern?"
|
|
|
|
span sp ep (SPPat x _ _) = SPPat x (startPosn sp) (endPosn ep)
|
|
span sp ep x = SPPat x (startPosn sp) (endPosn ep)
|
|
|
|
data FeType var
|
|
= Tyvar var
|
|
| Tycon var
|
|
| Tyapp (FeType var) (FeType var)
|
|
| Tyarr (FeType var) (FeType var)
|
|
| Tytup [FeType var]
|
|
|
|
| ParenType (FeType var) -- parsed parentheses
|
|
| SPType (FeType var) Posn Posn
|
|
deriving (Eq, Show, Ord)
|
|
|
|
instance HasPosn (FeType var) where
|
|
startPosn (SPType _ s _) = s
|
|
startPosn _ = error "no start posn in parsed type?"
|
|
|
|
endPosn (SPType _ _ e) = e
|
|
endPosn _ = error "no end posn in parsed type?"
|
|
|
|
span sp ep (SPType x _ _) = SPType x (startPosn sp) (endPosn ep)
|
|
span sp ep x = SPType x (startPosn sp) (endPosn ep)
|
|
|
|
data FeDecl var
|
|
= PatDecl (FePat var) (FeRhs var)
|
|
| FunDecl var [FePat var] (FeRhs var)
|
|
| TySig var (FeType var)
|
|
deriving (Eq, Show, Ord)
|
|
|
|
data FeRhs var
|
|
= BareRhs (FeExpr var) [FeDecl var]
|
|
deriving (Eq, Show, Ord)
|
|
|
|
data Literal
|
|
= LitString T.Text
|
|
| LitNumber Integer
|
|
deriving (Eq, Show, Ord)
|
|
|
|
data FeModule var
|
|
= Module { moduleName :: var
|
|
, moduleExports :: Maybe [NamespacedItem var]
|
|
, moduleItems :: [ModuleItem var]
|
|
}
|
|
deriving (Eq, Show, Ord)
|
|
|
|
data ModuleImport var
|
|
= Import { importMod :: var
|
|
, importList :: Maybe [NamespacedItem var]
|
|
, importQualified :: Bool
|
|
, importAlias :: Maybe var
|
|
}
|
|
deriving (Eq, Show, Ord)
|
|
|
|
data NamespacedItem var
|
|
= IEVar var
|
|
| IECon var
|
|
| IEModule var
|
|
deriving (Eq, Show, Ord)
|
|
|
|
data ModuleItem var
|
|
= ModDecl (FeDecl var)
|
|
| ModImport (ModuleImport var)
|
|
deriving (Eq, Show, Ord)
|