From b2aed14fd4a252d77b7ebaf42407472c47d1c98b Mon Sep 17 00:00:00 2001 From: Mateus Cruz Date: Mon, 5 Feb 2024 18:48:47 -0300 Subject: add logs and fix sql --- lib/handler.ml | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'lib') diff --git a/lib/handler.ml b/lib/handler.ml index 4ee7189..a4d8cae 100644 --- a/lib/handler.ml +++ b/lib/handler.ml @@ -26,7 +26,9 @@ let create_transaction client_id (db_pool : Query.pool) (request : Request.t) = in Ok (Response.of_string ~body:(Yojson.Safe.to_string json) `OK) | Error _ -> Ok (Response.create (`Code 422))) - | None -> Ok (Response.create `Not_found)) + | None -> + Logs.info (fun m -> m "Não encontrei o cliente %d" client_id); + Ok (Response.create `Not_found)) db_pool ;; @@ -57,7 +59,11 @@ let get_balance client_id (db_pool : Query.pool) (_request : Request.t) = `Assoc [ "saldo", balance; "ultimas_transacoes", last_transactions ] in Ok (Response.of_string ~body:(Yojson.Safe.to_string json) `OK) - | None -> Ok (Response.create `Not_found)) - | None -> Ok (Response.create `Not_found)) + | None -> + Logs.info (fun m -> m "Não encontrei o extrato do cliente %d" client_id); + Ok (Response.create `Not_found)) + | None -> + Logs.info (fun m -> m "Não encontrei o cliente %d" client_id); + Ok (Response.create `Not_found)) db_pool ;; -- cgit v1.2.3