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

infer letrec expressions

Browse Source
This commit is contained in:
crumbtoo
2024-01-23 21:08:17 -07:00
parent 22b5b47795
commit 3d45e12676
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/Core/HindleyMilner.hs
View File

@@ -158,7 +158,7 @@ gather = \g e -> runStateT (go g e) ([],0) <&> \ (t,(cs,_)) -> (t,cs) where
g' <- buildLetrecContext g bs g' <- buildLetrecContext g bs
go g' e go g' e
-- TODO letrec, lambda, case -- TODO lambda, case
buildLetrecContext :: Context' -> [Binding'] buildLetrecContext :: Context' -> [Binding']
-> StateT ([Constraint], Int) HMError Context' -> StateT ([Constraint], Int) HMError Context'
@@ -258,6 +258,9 @@ demoContext :: Context'
demoContext = demoContext =
[ ("fix", (TyVar "a" :-> TyVar "a") :-> TyVar "a") [ ("fix", (TyVar "a" :-> TyVar "a") :-> TyVar "a")
, ("add", TyInt :-> TyInt :-> TyInt) , ("add", TyInt :-> TyInt :-> TyInt)
, ("==", TyInt :-> TyInt :-> TyCon "Bool")
, ("True", TyCon "Bool")
, ("False", TyCon "Bool")
] ]
pprintType :: Type -> String pprintType :: Type -> String