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