소스 검색

check typedef deprecation during type_module_type

Simon Krajewski 11 년 전
부모
커밋
0eb30bd355
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      typer.ml

+ 1 - 0
typer.ml

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