diff options
| author | Mateus Cruz <mateuscolvr@gmail.com> | 2024-02-06 00:59:54 -0300 |
|---|---|---|
| committer | Mateus Cruz <mateuscolvr@gmail.com> | 2024-02-06 01:21:36 -0300 |
| commit | aae0f0595061ad32960541c532930be0e5af51f2 (patch) | |
| tree | 4368ed78c393650ca7764bc32aba46eb8bf8dd41 /lib/handler.ml | |
| parent | 372834401b0b08498286c92a206a48654ec86a71 (diff) | |
add lock
Diffstat (limited to 'lib/handler.ml')
| -rw-r--r-- | lib/handler.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/handler.ml b/lib/handler.ml index 121a0c5..4babe6e 100644 --- a/lib/handler.ml +++ b/lib/handler.ml @@ -8,6 +8,10 @@ let valid_debit value limit balance = let create_transaction client_id (db_pool : Query.pool) (request : Request.t) = Caqti_eio.Pool.use (fun conn -> + let module C = (val conn : Rapper_helper.CONNECTION) in + C.with_transaction + @@ fun () -> + let _ = Query.lock client_id conn in let client_opt = Option.join @@ Result.to_option @@ Query.find_client client_id conn in |