From 54aa4030badc1093e0c4ea0fa0385aecffe43137 Mon Sep 17 00:00:00 2001 From: Guillaume Baudart Date: Wed, 29 May 2024 13:44:51 +0200 Subject: [PATCH] Do not log response --- petanque/json_shell/server.ml | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/petanque/json_shell/server.ml b/petanque/json_shell/server.ml index 4f975647..1e536945 100644 --- a/petanque/json_shell/server.ml +++ b/petanque/json_shell/server.ml @@ -26,9 +26,7 @@ let rec handle_connection ~token ic oc () = match Interp.interp ~token request with | None -> handle_connection ~token ic oc () | Some reply -> - let* () = - Logs_lwt.info (fun m -> m "Reply: %s" (Yojson.Safe.to_string reply)) - in + let* () = Logs_lwt.info (fun m -> m "Sent reply") in let* () = Lwt_io.fprintl oc (Yojson.Safe.to_string reply) in handle_connection ~token ic oc ()) with End_of_file -> return ()