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 =
Transaction_result
{ storage = None ;
big_map_diff = None;
balance_updates =
Delegate.cleanup_balance_updates
[ Contract source, Debited amount ;
@ -431,6 +432,7 @@ let apply_manager_operation_content :
let result =
Transaction_result
{ storage = Some storage ;
big_map_diff;
balance_updates =
Delegate.cleanup_balance_updates
[ 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
| Transaction_result :
{ storage : Script.expr option ;
big_map_diff : Contract.big_map_diff option ;
balance_updates : Delegate.balance_updates ;
originated_contracts : Contract.t list ;
consumed_gas : Z.t ;
@ -163,8 +164,9 @@ module Manager_result = struct
make
~op_case: Operation.Encoding.Manager_operations.transaction_case
~encoding:
(obj6
(obj7
(opt "storage" Script.expr_encoding)
(opt "big_map_diff" Contract.big_map_diff_encoding)
(dft "balance_updates" Delegate.balance_updates_encoding [])
(dft "originated_contracts" (list Contract.encoding) [])
(dft "consumed_gas" z Z.zero)
@ -184,17 +186,17 @@ module Manager_result = struct
~proj:
(function
| Transaction_result
{ storage ; balance_updates ;
{ storage ; big_map_diff ; balance_updates ;
originated_contracts ; consumed_gas ;
storage_size ; paid_storage_size_diff } ->
(storage, balance_updates,
(storage, big_map_diff, balance_updates,
originated_contracts, consumed_gas,
storage_size, paid_storage_size_diff))
~inj:
(fun (storage, balance_updates,
(fun (storage, big_map_diff, balance_updates,
originated_contracts, consumed_gas,
storage_size, paid_storage_size_diff) ->
Transaction_result { storage ; balance_updates ;
Transaction_result { storage ; big_map_diff ; balance_updates ;
originated_contracts ; consumed_gas ;
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
| Transaction_result :
{ storage : Script.expr option ;
big_map_diff : Contract.big_map_diff option ;
balance_updates : Delegate.balance_updates ;
originated_contracts : Contract.t list ;
consumed_gas : Z.t ;