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

Alpha: fix balance_update from Rewards to Fees

Browse Source
This commit is contained in:
Marco Stronati 2018-06-27 19:08:37 +02:00 committed by Benjamin Canou
parent 7afc468082
commit 3d88707eb8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -545,7 +545,7 @@ let rec mark_skipped
{ balance_updates = { balance_updates =
cleanup_balance_updates cleanup_balance_updates
[ Contract source, Debited fee ; [ Contract source, Debited fee ;
Rewards (baker, level.cycle), Credited fee ] ; Fees (baker, level.cycle), Credited fee ] ;
operation_result = Skipped (manager_kind op.operation) ; operation_result = Skipped (manager_kind op.operation) ;
internal_operation_results = [] }) internal_operation_results = [] })
| Cons (Manager_operation ({ source ; fee } as op), rest) -> | Cons (Manager_operation ({ source ; fee } as op), rest) ->
@ -554,7 +554,7 @@ let rec mark_skipped
balance_updates = balance_updates =
cleanup_balance_updates cleanup_balance_updates
[ Contract source, Debited fee ; [ Contract source, Debited fee ;
Rewards (baker, level.cycle), Credited fee ] ; Fees (baker, level.cycle), Credited fee ] ;
operation_result = Skipped (manager_kind op.operation) ; operation_result = Skipped (manager_kind op.operation) ;
internal_operation_results = [] }, internal_operation_results = [] },
mark_skipped ~baker level rest) mark_skipped ~baker level rest)
@ -588,7 +588,7 @@ let rec apply_manager_contents_list_rec
balance_updates = balance_updates =
cleanup_balance_updates cleanup_balance_updates
[ Contract source, Debited fee ; [ Contract source, Debited fee ;
Rewards (baker, level.cycle), Credited fee ] ; Fees (baker, level.cycle), Credited fee ] ;
operation_result ; operation_result ;
internal_operation_results ; internal_operation_results ;
} in } in
@ -602,7 +602,7 @@ let rec apply_manager_contents_list_rec
balance_updates = balance_updates =
cleanup_balance_updates cleanup_balance_updates
[ Contract source, Debited fee ; [ Contract source, Debited fee ;
Rewards (baker, level.cycle), Credited fee ] ; Fees (baker, level.cycle), Credited fee ] ;
operation_result ; operation_result ;
internal_operation_results ; internal_operation_results ;
} in } in
@ -613,7 +613,7 @@ let rec apply_manager_contents_list_rec
balance_updates = balance_updates =
cleanup_balance_updates cleanup_balance_updates
[ Contract source, Debited fee ; [ Contract source, Debited fee ;
Rewards (baker, level.cycle), Credited fee ] ; Fees (baker, level.cycle), Credited fee ] ;
operation_result ; operation_result ;
internal_operation_results ; internal_operation_results ;
} in } in