Proto: Fix warning

This commit is contained in:
Grégoire Henry 2018-01-26 13:19:16 +01:00
parent a30f20c4e3
commit 0c51f7a7ca

View File

@ -645,7 +645,7 @@ let rec interp
| None ->
(* we see non scripted contracts as (unit, unit) contract *)
Lwt.return (ty_eq tp Unit_t |>
record_trace (Invalid_contract (loc, destination))) >>=? fun (Eq _) ->
record_trace (Invalid_contract (loc, destination))) >>=? fun Eq ->
return (ctxt, gas, origination)
| Some script ->
let p = unparse_data tp p in