hindley milner inference :D

2023-12-18 10:05:34 -07:00
parent 78f88e085f
commit f7e850c61a
2 changed files with 15 additions and 10 deletions
--- a/src/Core/Syntax.hs
+++ b/src/Core/Syntax.hs
@@ -50,7 +50,6 @@ data Expr b = Var Name
            | Let Rec [Binding b] (Expr b)
            | App (Expr b) (Expr b)
            | Lit Lit
-            | Type Type
            deriving (Show, Read, Lift)

 deriving instance (Eq b) => Eq (Expr b)
@@ -59,7 +58,6 @@ data Type = TyInt
          | TyFun
          | TyVar Name
          | TyApp Type Type
-          -- | TyConApp TyCon [Type]
          deriving (Show, Read, Lift, Eq)

 type TyCon = Name