|
@@ -635,6 +635,7 @@ let rec type_module_type ctx t tparams p =
|
|
|
mk (TTypeExpr (TEnumDecl e)) (TType (e.e_type,types)) p
|
|
|
| TTypeDecl s ->
|
|
|
let t = apply_params s.t_types (List.map (fun _ -> mk_mono()) s.t_types) s.t_type in
|
|
|
+ Codegen.DeprecationCheck.check_typedef ctx.com s p;
|
|
|
(match follow t with
|
|
|
| TEnum (e,params) ->
|
|
|
type_module_type ctx (TEnumDecl e) (Some params) p
|