From 23f904e5527159d6bc7db418a70fac961859648c Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Thu, 28 Mar 2024 11:56:38 -0400
Subject: [PATCH] fix warning

---
 src/core/server.ml | 2 --
 1 file changed, 2 deletions(-)

diff --git a/src/core/server.ml b/src/core/server.ml
index 8e6baba6..83d4810b 100644
--- a/src/core/server.ml
+++ b/src/core/server.ml
@@ -315,8 +315,6 @@ let string_as_list_contains_ (s : string) (sub : string) : bool =
 let client_handle_for (self : t) ~client_addr ic oc : unit =
   Pool.with_resource self.bytes_pool @@ fun bytes_req ->
   Pool.with_resource self.bytes_pool @@ fun bytes_res ->
-  let (module B) = self.backend in
-
   (* how to log the response to this query *)
   let log_response (req : _ Request.t) (resp : Response.t) =
     if not Log.dummy then (