From f3461cfd216622beceec76edea7cb9bf1316602c Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Fri, 21 Mar 2025 08:37:16 -0400 Subject: [PATCH] detail in example --- examples/echo.ml | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/examples/echo.ml b/examples/echo.ml index 48c3b791..0ce3cb6e 100644 --- a/examples/echo.ml +++ b/examples/echo.ml @@ -134,6 +134,7 @@ let setup_upload server : unit = let () = let port_ = ref 8080 in let j = ref 32 in + let addr = ref "127.0.0.1" in Arg.parse (Arg.align [ @@ -141,11 +142,12 @@ let () = "-p", Arg.Set_int port_, " set port"; "--debug", Arg.Unit setup_logging, " enable debug"; "-j", Arg.Set_int j, " maximum number of connections"; + "--addr", Arg.Set_string addr, " binding address"; ]) (fun _ -> raise (Arg.Bad "")) "echo [option]*"; - let server = Tiny_httpd.create ~port:!port_ ~max_connections:!j () in + let server = Tiny_httpd.create ~addr:!addr ~port:!port_ ~max_connections:!j () in Tiny_httpd_camlzip.setup ~compress_above:1024 ~buf_size:(16 * 1024) server; let m_stats, get_stats = middleware_stat () in