summaryrefslogtreecommitdiff
path: root/lib/handler.ml
diff options
context:
space:
mode:
authorMateus Cruz <mateuscolvr@gmail.com>2024-02-11 16:44:31 -0300
committerMateus Cruz <mateuscolvr@gmail.com>2024-02-11 16:44:31 -0300
commit6a0c2449e4c4d22cf18e508bd1f13088a3314ca7 (patch)
tree8a54e7c4c3f56b5fcdb88081bd352cbdb99b0f4a /lib/handler.ml
parent088cbd66cffc4b33dfd3ec51fe43e0b487ac6276 (diff)
test: concurrency test
Diffstat (limited to 'lib/handler.ml')
-rw-r--r--lib/handler.ml6
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/handler.ml b/lib/handler.ml
index fb43239..c1ba53d 100644
--- a/lib/handler.ml
+++ b/lib/handler.ml
@@ -44,6 +44,12 @@ let create_transaction client_id (db_pool : pool) (request : Request.t) =
in
(match insert_result with
| Ok () ->
+ let client =
+ Option.get
+ @@ Option.join
+ @@ Result.to_option
+ @@ Query.find_client client_id conn
+ in
let json : Yojson.Safe.t =
`Assoc [ "limite", `Int client.mov_limit; "saldo", `Int client.balance ]
in