|
@@ -247,6 +247,7 @@ let make_generic ctx ps pt p =
|
|
| TAbstract(a,tl) -> (s_type_path_underscore a.a_path) ^ (loop_tl tl)
|
|
| TAbstract(a,tl) -> (s_type_path_underscore a.a_path) ^ (loop_tl tl)
|
|
| _ when not top -> "_" (* allow unknown/incompatible types as type parameters to retain old behavior *)
|
|
| _ when not top -> "_" (* allow unknown/incompatible types as type parameters to retain old behavior *)
|
|
| TMono _ -> raise (Generic_Exception (("Could not determine type for parameter " ^ s), p))
|
|
| TMono _ -> raise (Generic_Exception (("Could not determine type for parameter " ^ s), p))
|
|
|
|
+ | TDynamic _ -> "Dynamic"
|
|
| t -> raise (Generic_Exception (("Type parameter must be a class or enum instance (found " ^ (s_type (print_context()) t) ^ ")"), p))
|
|
| t -> raise (Generic_Exception (("Type parameter must be a class or enum instance (found " ^ (s_type (print_context()) t) ^ ")"), p))
|
|
and loop_tl tl = match tl with
|
|
and loop_tl tl = match tl with
|
|
| [] -> ""
|
|
| [] -> ""
|