From f5993408c0dade79b48c8b6badb8add4db948784 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Wed, 9 Jul 2025 18:31:27 -0400 Subject: [PATCH] wip: debug echo server --- test/lwt/echo_server.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/test/lwt/echo_server.ml b/test/lwt/echo_server.ml index 3d259709..9047e5ff 100644 --- a/test/lwt/echo_server.ml +++ b/test/lwt/echo_server.ml @@ -26,7 +26,7 @@ let main ~port ~runner:_ () : unit Lwt.t = ~data:(fun () -> [ "addr", `String (str_of_sockaddr client_addr) ]) in - Printf.printf "got new client\n%!"; + Printf.printf "got new client on %s\n%!" (str_of_sockaddr client_addr); let buf = Bytes.create 32 in let continue = ref true in