|
|
- 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)
|