fix lambda inference

2024-03-17 06:25:29 -06:00
parent 64482660e1
commit 0e240c5256
1 changed files with 2 additions and 1 deletions
--- a/src/Rlp/HindleyMilner.hs
+++ b/src/Rlp/HindleyMilner.hs
@@ -85,7 +85,8 @@ gather' = \case
        (te,je) <- gather e
        let cs = concatMap (uncurry . equals $ je ^. assumptions) $ bs `zip` tbs
            as = foldr H.delete (je ^. assumptions) bs
-            j = mempty & constraints .~ cs & assumptions .~ as
+            j = mempty & constraints .~ (je ^. constraints <> cs)
+                       & assumptions .~ as
            t = foldr (:->) te tbs
        pure (t,j)
      where