diff options
Diffstat (limited to 'lib/handler.ml')
| -rw-r--r-- | lib/handler.ml | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lib/handler.ml b/lib/handler.ml index fb075ff..121a0c5 100644 --- a/lib/handler.ml +++ b/lib/handler.ml @@ -2,7 +2,7 @@ open Piaf let valid_debit value limit balance = let balance_after_op = balance - value in - not (balance_after_op <= limit * -1) + not (balance_after_op < limit * -1) ;; let create_transaction client_id (db_pool : Query.pool) (request : Request.t) = @@ -73,7 +73,11 @@ let get_balance client_id (db_pool : Query.pool) (_request : Request.t) = let limit = `Int client.mov_limit in `Assoc [ "total", total; "data_extrato", date; "limite", limit ] in - let last_transactions = `List [] in + let t = + Result.fold ~ok:Fun.id ~error:(fun _ -> []) + @@ Query.transactions client_id conn + in + let last_transactions = `List (List.map Serializer.transaction t) in `Assoc [ "saldo", balance; "ultimas_transacoes", last_transactions ] in Ok (Response.of_string ~body:(Yojson.Safe.to_string json) `OK) |