summaryrefslogtreecommitdiff
path: root/lib/query.ml
diff options
context:
space:
mode:
Diffstat (limited to 'lib/query.ml')
-rw-r--r--lib/query.ml7
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}]
;;