balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Proto: show big map diff in transaction receipt

Browse Source
This commit is contained in:
Alain Mebsout 2018-07-05 16:23:30 +02:00 committed by Benjamin Canou
parent d73d3fdf2b
commit 82f20ade37
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/proto_alpha/lib_protocol/src/apply.ml
View File

@ -395,6 +395,7 @@ let apply_manager_operation_content :
let result = let result =
Transaction_result Transaction_result
{ storage = None ; { storage = None ;
big_map_diff = None;
balance_updates = balance_updates =
Delegate.cleanup_balance_updates Delegate.cleanup_balance_updates
[ Contract source, Debited amount ; [ Contract source, Debited amount ;
@ -431,6 +432,7 @@ let apply_manager_operation_content :
let result = let result =
Transaction_result Transaction_result
{ storage = Some storage ; { storage = Some storage ;
big_map_diff;
balance_updates = balance_updates =
Delegate.cleanup_balance_updates Delegate.cleanup_balance_updates
[ Contract payer, Debited fees ; [ Contract payer, Debited fees ;

12
src/proto_alpha/lib_protocol/src/apply_results.ml
View File

@ -45,6 +45,7 @@ type _ successful_manager_operation_result =
| Reveal_result : Kind.reveal successful_manager_operation_result | Reveal_result : Kind.reveal successful_manager_operation_result
| Transaction_result : | Transaction_result :
{ storage : Script.expr option ; { storage : Script.expr option ;
big_map_diff : Contract.big_map_diff option ;
balance_updates : Delegate.balance_updates ; balance_updates : Delegate.balance_updates ;
originated_contracts : Contract.t list ; originated_contracts : Contract.t list ;
consumed_gas : Z.t ; consumed_gas : Z.t ;
@ -163,8 +164,9 @@ module Manager_result = struct
make make
~op_case: Operation.Encoding.Manager_operations.transaction_case ~op_case: Operation.Encoding.Manager_operations.transaction_case
~encoding: ~encoding:
(obj6 (obj7
(opt "storage" Script.expr_encoding) (opt "storage" Script.expr_encoding)
(opt "big_map_diff" Contract.big_map_diff_encoding)
(dft "balance_updates" Delegate.balance_updates_encoding []) (dft "balance_updates" Delegate.balance_updates_encoding [])
(dft "originated_contracts" (list Contract.encoding) []) (dft "originated_contracts" (list Contract.encoding) [])
(dft "consumed_gas" z Z.zero) (dft "consumed_gas" z Z.zero)
@ -184,17 +186,17 @@ module Manager_result = struct
~proj: ~proj:
(function (function
| Transaction_result | Transaction_result
{ storage ; balance_updates ; { storage ; big_map_diff ; balance_updates ;
originated_contracts ; consumed_gas ; originated_contracts ; consumed_gas ;
storage_size ; paid_storage_size_diff } -> storage_size ; paid_storage_size_diff } ->
(storage, balance_updates, (storage, big_map_diff, balance_updates,
originated_contracts, consumed_gas, originated_contracts, consumed_gas,
storage_size, paid_storage_size_diff)) storage_size, paid_storage_size_diff))
~inj: ~inj:
(fun (storage, balance_updates, (fun (storage, big_map_diff, balance_updates,
originated_contracts, consumed_gas, originated_contracts, consumed_gas,
storage_size, paid_storage_size_diff) -> storage_size, paid_storage_size_diff) ->
Transaction_result { storage ; balance_updates ; Transaction_result { storage ; big_map_diff ; balance_updates ;
originated_contracts ; consumed_gas ; originated_contracts ; consumed_gas ;
storage_size ; paid_storage_size_diff }) storage_size ; paid_storage_size_diff })

1
src/proto_alpha/lib_protocol/src/apply_results.mli
View File

@ -89,6 +89,7 @@ and _ successful_manager_operation_result =
| Reveal_result : Kind.reveal successful_manager_operation_result | Reveal_result : Kind.reveal successful_manager_operation_result
| Transaction_result : | Transaction_result :
{ storage : Script.expr option ; { storage : Script.expr option ;
big_map_diff : Contract.big_map_diff option ;
balance_updates : Delegate.balance_updates ; balance_updates : Delegate.balance_updates ;
originated_contracts : Contract.t list ; originated_contracts : Contract.t list ;
consumed_gas : Z.t ; consumed_gas : Z.t ;