瀏覽代碼

[macro] `follow` decoded enum field type (#9828)

Aleksandr Kuzmenko 5 年之前
父節點
當前提交
9af741a447
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      src/macro/macroApi.ml

+ 1 - 1
src/macro/macroApi.ml

@@ -1336,7 +1336,7 @@ let decode_cfield v =
 let decode_efield v =
 	let name = decode_string (field v "name")
 	and t = decode_type (field v "type") in
-	match t with
+	match follow t with
 	| TEnum (enm,_) | TFun (_,TEnum (enm,_)) ->
 		(try PMap.find name enm.e_constrs
 		with Not_found -> raise Invalid_expr)