From db882cae080d3820f1723a711398c21db27f826a Mon Sep 17 00:00:00 2001
From: Mateus Cruz <mateuscolvr@gmail.com>
Date: Tue, 6 Feb 2024 02:56:02 -0300
Subject: small refactor

---
 lib/query.ml | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

(limited to 'lib/query.ml')

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}]
   ;;
-- 
cgit v1.2.3