last commit was crazy it was always an ifoldr

2024-03-17 06:01:15 -06:00
parent a8912dea5e
commit 15f6613bd2
2 changed files with 5 additions and 3 deletions
--- a/src/Rlp/HindleyMilner.hs
+++ b/src/Rlp/HindleyMilner.hs
@@ -136,7 +136,7 @@ infer1' g1 e = do
    ((t,j) :< _) <- annotate e
    g2 <- unify (j ^. constraints)
    g <- unionContextWithKeyM unifyTypes g1 g2
-    pure $ ifoldlOf (contextVars . itraversed) subst t g
+    pure $ ifoldrOf (contextVars . itraversed) subst t g
  where
    -- intuitively, we'd return mgu(s,t) but the union is left-biased making `s`
    -- the user-specified type: prioritise her.