浏览代码

Support @:haxe.warning options for @:enum deprecation warning

Rudy Ges 2 年之前
父节点
当前提交
9ea1120bb8
共有 1 个文件被更改,包括 3 次插入1 次删除
  1. 3 1
      src/typing/typeloadModule.ml

+ 3 - 1
src/typing/typeloadModule.ml

@@ -204,7 +204,9 @@ module ModuleLevel = struct
 				begin match p_enum_meta with
 					| None when a.a_enum -> a.a_meta <- (Meta.Enum,[],null_pos) :: a.a_meta; (* HAXE5: remove *)
 					| None -> ()
-					| Some p -> warning ctx WDeprecated "`@:enum abstract` is deprecated in favor of `enum abstract`" p
+					| Some p ->
+						let options = Warning.from_meta d.d_meta in
+						ctx.com.warning WDeprecated options "`@:enum abstract` is deprecated in favor of `enum abstract`" p
 				end;
 				decls := (TAbstractDecl a, decl) :: !decls;
 				match d.d_data with