aboutsummaryrefslogtreecommitdiff
path: root/src/boot/me
diff options
context:
space:
mode:
Diffstat (limited to 'src/boot/me')
-rw-r--r--src/boot/me/type.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/me/type.ml b/src/boot/me/type.ml
index 5e7d22ec..edd750f5 100644
--- a/src/boot/me/type.ml
+++ b/src/boot/me/type.ml
@@ -1116,7 +1116,7 @@ let process_crate (cx:ctxt) (crate:Ast.crate) : unit =
TYSPEC_exterior tv
in
let base_tv = ref base_ts in
- unify_lval' ucx base base_tv;
+ unify_lval' { ucx with ext_ok = true } base base_tv;
match !(resolve_tyvar base_tv) with
TYSPEC_resolved (_, ty) ->
unify_ty ucx (project_type ty comp) tv