From ca236b8e71dcd5e2dcb58c07a2bbc7e0860497b0 Mon Sep 17 00:00:00 2001
From: Ulf Norell <ulf.norell@gmail.com>
Date: Thu, 19 Mar 2020 12:11:55 +0100
Subject: [PATCH] Handle negative numbers in aci

Fixes aeternity/aesophia_http#59
---
 src/aeso_aci.erl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/aeso_aci.erl b/src/aeso_aci.erl
index 274be69..26372a8 100644
--- 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),