Fix a bug in unification (lol)

2023-11-25 23:08:05 -08:00 · 2023-11-25 23:08:05 -08:00 · 824b19123e
commit 824b19123e
parent a9163c0797
1 changed files with 1 additions and 1 deletions
--- a/src/Bergamot/Syntax.elm
+++ b/src/Bergamot/Syntax.elm
@ -65,7 +65,7 @@ unifyList l1 l2 us =
    case (l1, l2) of
        (t1 :: ts1, t2 :: ts2) ->
            unify t1 t2 us
-            |> Maybe.andThen (\(t, usp) -> unifyList ts1 ts2 usp)
+            |> Maybe.andThen (\(t, usp) -> Maybe.map (Tuple.mapFirst (\ts -> t :: ts)) (unifyList ts1 ts2 usp))
        ([], []) -> Just ([], us)
        _ -> Nothing