From 29ce01be165b8ed46cb2f8edacfc91b653efb869 Mon Sep 17 00:00:00 2001
From: Brian Campbell
Date: Tue, 29 Jan 2019 18:45:03 +0000
Subject: Monomorphisation: add missing tyvar substitution during constrant
 propagation

---
 src/monomorphise.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3