diff options
| -rw-r--r-- | typing/ctype.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/typing/ctype.ml b/typing/ctype.ml index 86708bc37..d988824a7 100644 --- a/typing/ctype.ml +++ b/typing/ctype.ml @@ -1701,7 +1701,7 @@ let unify_var env t1 t2 = update_level env t1.level t2; t1.desc <- Tlink t2 with Unify trace -> - raise (Unify ((t1,t2)::trace)) + raise (Unify (expand_trace env ((t1,t2)::trace))) end | _ -> unify env t1 t2 |