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

Alpha: simplify the metadata encoding for balance update

Browse Source
This commit is contained in:
Grégoire Henry 2018-05-29 12:02:14 +02:00 committed by Benjamin Canou
parent 025187da2f
commit 1d75ff1871
1 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/proto_alpha/lib_protocol/src/apply_operation_result.ml
View File

@ -69,15 +69,23 @@ type balance_update =
let balance_update_encoding = let balance_update_encoding =
def "operation_metadata.alpha.balance_update" @@ def "operation_metadata.alpha.balance_update" @@
union obj1
[ case (Tag 0) (req "change"
(obj1 (req "credited" Tez.encoding)) (conv
(function Credited v -> Some v | Debited _ -> None) (function
(fun v -> Credited v) ; | Credited v -> Tez.to_mutez v
case (Tag 1) | Debited v -> Int64.neg (Tez.to_mutez v))
(obj1 (req "debited" Tez.encoding)) (Json.wrap_error @@
(function Debited v -> Some v | Credited _ -> None) fun v ->
(fun v -> Debited v) ] if Compare.Int64.(v < 0L) then
match Tez.of_mutez (Int64.neg v) with
| Some v -> Debited v
| None -> failwith "Qty.of_mutez"
else
match Tez.of_mutez v with
| Some v -> Credited v
| None -> failwith "Qty.of_mutez")
int64))
type balance_updates = (balance * balance_update) list type balance_updates = (balance * balance_update) list