[macro] correctly encode haxe.macro.DisplayKind

src/macro/eval/evalEncode.ml

@@ -157,6 +157,7 @@ let encode_enum i pos index pl =
 		| IAnonStatus -> key_haxe_macro_AnonStatus
 		| IImportMode -> key_haxe_macro_ImportMode
 		| IQuoteStatus -> key_haxe_macro_QuoteStatus
+		| IDisplayKind -> key_haxe_macro_DisplayKind
 	in
 	encode_enum_value key index (Array.of_list pl) pos
 

src/macro/eval/evalHash.ml

@@ -103,6 +103,7 @@ let key_haxe_macro_FieldAccess = hash "haxe.macro.FieldAccess"
 let key_haxe_macro_AnonStatus = hash "haxe.macro.AnonStatus"
 let key_haxe_macro_ImportMode = hash "haxe.macro.ImportMode"
 let key_haxe_macro_QuoteStatus = hash "haxe.macro.QuoteStatus"
+let key_haxe_macro_DisplayKind = hash "haxe.macro.DisplayKind"
 let key_haxe_CallStack = hash "haxe.CallStack"
 let key___init__ = hash "__init__"
 let key_new = hash "new"

src/macro/macroApi.ml

@@ -75,6 +75,7 @@ type enum_type =
 	| IAnonStatus
 	| IQuoteStatus
 	| IImportMode
+	| IDisplayKind
 
 (**
 	Our access to the interpreter from the macro api
@@ -168,6 +169,7 @@ let enum_name = function
 	| IAnonStatus -> "AnonStatus"
 	| IImportMode -> "ImportMode"
 	| IQuoteStatus -> "QuoteStatus"
+	| IDisplayKind -> "DisplayKind"
 
 let all_enums =
 	let last = IImportMode in
@@ -386,7 +388,7 @@ and encode_display_kind dk =
 	| DKMarked -> 3, []
 	| DKPattern outermost -> 4, [vbool outermost]
 	in
-	encode_enum ~pos:None ICType tag pl
+	encode_enum ~pos:None IDisplayKind tag pl
 
 and encode_expr e =
 	let rec loop (e,p) =