diff options
| author | Mateus Cruz <mateuscolvr@gmail.com> | 2024-02-06 02:56:02 -0300 |
|---|---|---|
| committer | Mateus Cruz <mateuscolvr@gmail.com> | 2024-02-06 02:56:02 -0300 |
| commit | db882cae080d3820f1723a711398c21db27f826a (patch) | |
| tree | 521898630757be1b8056539d919ded3aa69a66ba /lib/query.ml | |
| parent | 7c92898c8f0adb4a6014ce5f434a7d862a0cdc57 (diff) | |
small refactor
Diffstat (limited to 'lib/query.ml')
| -rw-r--r-- | lib/query.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/query.ml b/lib/query.ml index 2dab927..40a2c22 100644 --- a/lib/query.ml +++ b/lib/query.ml @@ -1,5 +1,3 @@ -type pool = ((module Rapper_helper.CONNECTION), Caqti_error.t) Caqti_eio.Pool.t - module Q = struct let transaction = [%rapper @@ -27,7 +25,7 @@ module Q = struct ;; let client = - let open Client in + let open Operation in [%rapper get_opt {sql| @@ -61,8 +59,7 @@ module Q = struct let lock = [%rapper - execute - {sql| + execute {sql| SELECT pg_advisory_xact_lock(%int{client_id}) |sql}] ;; |