msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

rc #13

Merged
crumbtoo merged 196 commits from dev into main 2024-02-13 13:22:23 -07:00
Conversation 0 Commits 196 Files Changed 55 +4 -3
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 6f522d34ff - Show all commits

7
src/Core/Syntax.hs
View File

@@ -7,6 +7,7 @@ Description : Core ASTs and the like
module Core.Syntax module Core.Syntax
( Expr(..) ( Expr(..)
, Type(..) , Type(..)
, pattern TyInt
, Lit(..) , Lit(..)
, pattern (:$) , pattern (:$)
, pattern (:@) , pattern (:@)
@@ -54,14 +55,14 @@ data Expr b = Var Name
deriving instance (Eq b) => Eq (Expr b) deriving instance (Eq b) => Eq (Expr b)
data Type = TyInt data Type = TyFun
| TyFun
| TyVar Name | TyVar Name
| TyApp Type Type | TyApp Type Type
| TyCon Name | TyCon Name
deriving (Show, Read, Lift, Eq) deriving (Show, Read, Lift, Eq)
type TyCon = Name pattern TyInt :: Type
pattern TyInt = TyCon "Int#"
infixl 2 :$ infixl 2 :$
pattern (:$) :: Expr b -> Expr b -> Expr b pattern (:$) :: Expr b -> Expr b -> Expr b