typCheckRlpProgR forgot to solve constraints 💀

2024-03-15 18:22:17 -06:00
parent 010c719eac
commit 48ccda9549
1 changed files with 1 additions and 1 deletions
--- a/src/Rlp/HindleyMilner.hs
+++ b/src/Rlp/HindleyMilner.hs
@@ -207,7 +207,7 @@ typeCheckRlpProgR :: (Monad m)
 typeCheckRlpProgR p = tc p
  where
    g = buildInitialContext p
-    tc = liftHM . traverse (infer' g) . etaExpandAll
+    tc = liftHM . traverse (solve' g) . etaExpandAll
    etaExpandAll = programDecls . each %~ etaExpand

 etaExpand :: Decl b (RlpExpr b) -> Decl b (RlpExpr b)