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

typCheckRlpProgR forgot to solve constraints 💀

Browse Source
This commit is contained in:
crumbtoo
2024-03-15 18:22:17 -06:00
parent 010c719eac
commit 48ccda9549
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/Rlp/HindleyMilner.hs
View File

@@ -207,7 +207,7 @@ typeCheckRlpProgR :: (Monad m)
typeCheckRlpProgR p = tc p typeCheckRlpProgR p = tc p
where where
g = buildInitialContext p g = buildInitialContext p
tc = liftHM . traverse (infer' g) . etaExpandAll tc = liftHM . traverse (solve' g) . etaExpandAll
etaExpandAll = programDecls . each %~ etaExpand etaExpandAll = programDecls . each %~ etaExpand
etaExpand :: Decl b (RlpExpr b) -> Decl b (RlpExpr b) etaExpand :: Decl b (RlpExpr b) -> Decl b (RlpExpr b)