Alpha: typecheck_data shouldn't allow big maps
This commit is contained in:
parent
93a5b3fb7d
commit
9bec16b6a2
@ -2892,7 +2892,7 @@ let typecheck_data
|
|||||||
= fun ?type_logger ctxt (data, exp_ty) ->
|
= fun ?type_logger ctxt (data, exp_ty) ->
|
||||||
trace
|
trace
|
||||||
(Ill_formed_type (None, exp_ty, 0))
|
(Ill_formed_type (None, exp_ty, 0))
|
||||||
(Lwt.return @@ parse_ty ctxt ~allow_big_map:true ~allow_operation:false (root exp_ty))
|
(Lwt.return @@ parse_ty ctxt ~allow_big_map:false ~allow_operation:false (root exp_ty))
|
||||||
>>=? fun (Ex_ty exp_ty, ctxt) ->
|
>>=? fun (Ex_ty exp_ty, ctxt) ->
|
||||||
trace_eval
|
trace_eval
|
||||||
(fun () ->
|
(fun () ->
|
||||||
|
Loading…
Reference in New Issue
Block a user