From 2ed66ea569a0402665e3e53a6069ec1151f580ea Mon Sep 17 00:00:00 2001 From: Benjamin Canou Date: Mon, 20 Mar 2017 14:37:01 +0100 Subject: [PATCH] Alpha: take origination burn from source and not destination. --- src/proto/alpha/apply.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/proto/alpha/apply.ml b/src/proto/alpha/apply.ml index 870b157b7..b15d8be7d 100644 --- a/src/proto/alpha/apply.ml +++ b/src/proto/alpha/apply.ml @@ -85,11 +85,11 @@ let apply_manager_operation_content ctxt origination_nonce accept_failing_script | None -> None | Some script -> Some (script, (Script_interpreter.dummy_code_fee, Script_interpreter.dummy_storage_fee)) in + Contract.spend ctxt source Constants.origination_burn >>=? fun ctxt -> Contract.spend ctxt source credit >>=? fun ctxt -> - Lwt.return Tez.(credit -? Constants.origination_burn) >>=? fun balance -> Contract.originate ctxt origination_nonce - ~manager ~delegate ~balance + ~manager ~delegate ~balance:credit ?script ~spendable ~delegatable >>=? fun (ctxt, _, origination_nonce) -> return (ctxt, origination_nonce)