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 =
def "operation_metadata.alpha.balance_update" @@
union
[ case (Tag 0)
(obj1 (req "credited" Tez.encoding))
(function Credited v -> Some v | Debited _ -> None)
(fun v -> Credited v) ;
case (Tag 1)
(obj1 (req "debited" Tez.encoding))
(function Debited v -> Some v | Credited _ -> None)
(fun v -> Debited v) ]
obj1
(req "change"
(conv
(function
| Credited v -> Tez.to_mutez v
| Debited v -> Int64.neg (Tez.to_mutez v))
(Json.wrap_error @@
fun 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