Handle negative numbers in aci

Fixes aeternity/aesophia_http#59
2020-03-19 12:11:55 +01:00 · 2020-03-19 12:11:55 +01:00 · ca236b8e71
commit ca236b8e71
parent 83e03f3013
1 changed files with 2 additions and 0 deletions
--- a/src/aeso_aci.erl
+++ b/src/aeso_aci.erl
@ -194,6 +194,8 @@ encode_expr({bytes, _, B})  ->
 encode_expr({Lit, _, L}) when Lit == oracle_pubkey; Lit == oracle_query_id;
                              Lit == contract_pubkey; Lit == account_pubkey ->
    aeser_api_encoder:encode(Lit, L);
+encode_expr({app, _, {'-', _}, [{int, _, N}]}) ->
+  encode_expr({int, [], -N});
 encode_expr({app, _, F, As}) ->
    Ef = encode_expr(F),
    Eas = encode_exprs(As),