diff options
| author | Brian Campbell | 2019-01-29 18:45:03 +0000 |
|---|---|---|
| committer | Brian Campbell | 2019-01-29 18:45:03 +0000 |
| commit | 29ce01be165b8ed46cb2f8edacfc91b653efb869 (patch) | |
| tree | 5e80e46bc023427db5a96ac7dd2e9d152bdbcfe9 /src | |
| parent | 0b3273e99772d426b8f9843228cf295d7716eea0 (diff) | |
Monomorphisation: add missing tyvar substitution during constrant propagation
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 |