[pet-server] Do not log response

ejgallego · May 30, 2024 · 38d0711 · 38d0711
1 parent b56a85c
commit 38d0711
Showing 1 changed file with 1 addition and 3 deletions.
diff --git 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 ()