浏览代码

[xml] generate meta for enum fields

Simon Krajewski 11 年之前
父节点
当前提交
9b1095c6e3
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      genxml.ml

+ 1 - 1
genxml.ml

@@ -167,7 +167,7 @@ let gen_constr e =
 		| _ ->
 			[] , doc
 	) in
-	node e.ef_name args t
+	node e.ef_name args (t @ gen_meta e.ef_meta)
 
 let gen_ordered_constr e =
 	let rec loop el = match el with