Fixup fix burns

This commit is contained in:
Pierre Chambart 2018-06-23 23:09:02 +02:00
parent d00cbaf081
commit 04c66869c9
2 changed files with 3 additions and 5 deletions

View File

@ -547,8 +547,7 @@ module Contract : sig
type big_map_diff = (Script_expr_hash.t * Script.expr option) list type big_map_diff = (Script_expr_hash.t * Script.expr option) list
val originate: val originate:
context -> context -> contract ->
contract ->
balance: Tez.t -> balance: Tez.t ->
manager: public_key_hash -> manager: public_key_hash ->
?script: (Script.t * big_map_diff option) -> ?script: (Script.t * big_map_diff option) ->

View File

@ -250,9 +250,8 @@ let originate c ?prepaid_bootstrap_storage contract
create_base c ?prepaid_bootstrap_storage contract ~balance ~manager create_base c ?prepaid_bootstrap_storage contract ~balance ~manager
~delegate ?script ~spendable ~delegatable ~delegate ?script ~spendable ~delegatable
let create_implicit c manager ~balance : Raw_context.t tzresult Lwt.t = let create_implicit c manager ~balance =
create_base c create_base c (Contract_repr.implicit_contract manager)
(Contract_repr.implicit_contract manager)
~balance ~manager ?script:None ~delegate:None ~balance ~manager ?script:None ~delegate:None
~spendable:true ~delegatable:false ~spendable:true ~delegatable:false