Selaa lähdekoodia

transform type parameter paths unqualified in Interp.make_ast (fixed issue #1614)

Simon Krajewski 12 vuotta sitten
vanhempi
commit
d3b2f5d1db
1 muutettua tiedostoa jossa 2 lisäystä ja 0 poistoa
  1. 2 0
      interp.ml

+ 2 - 0
interp.ml

@@ -4380,6 +4380,8 @@ let rec make_type = function
 		| Some t -> make_type t)
 		| Some t -> make_type t)
 	| TEnum (e,pl) ->
 	| TEnum (e,pl) ->
 		tpath e.e_path e.e_module.m_path (List.map make_type pl)
 		tpath e.e_path e.e_module.m_path (List.map make_type pl)
+	| TInst({cl_kind = KTypeParameter _} as c,pl) ->
+		tpath ([],snd c.cl_path) ([],snd c.cl_path) (List.map make_type pl)
 	| TInst (c,pl) ->
 	| TInst (c,pl) ->
 		tpath c.cl_path c.cl_module.m_path (List.map make_type pl)
 		tpath c.cl_path c.cl_module.m_path (List.map make_type pl)
 	| TType (t,pl) as tf ->
 	| TType (t,pl) as tf ->