diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/monomorphise.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/monomorphise.ml b/src/monomorphise.ml index 51de5a25..ceb8d85a 100644 --- a/src/monomorphise.ml +++ b/src/monomorphise.ml @@ -140,7 +140,7 @@ let subst_nc, subst_src_typ, subst_src_typ_arg = | Typ_app (id,tas) -> re (Typ_app (id,List.map (s_starg substs) tas)) | Typ_exist (kopts,nc,t) -> let substs = List.fold_left (fun sub kopt -> KBindings.remove (kopt_kid kopt) sub) substs kopts in - re (Typ_exist (kopts,nc,s_styp substs t)) + re (Typ_exist (kopts,subst_nc substs nc,s_styp substs t)) | Typ_internal_unknown -> Reporting.unreachable l __POS__ "escaped Typ_internal_unknown" and s_starg substs (A_aux (ta,l) as targ) = match ta with |