From 16a865580fad95211802e6f4e0a6d974f0662c85 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 4 Mar 2012 13:14:11 -0500 Subject: [PATCH] Trade throughput for latency. Unsure about this. --- relay.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/relay.ml b/relay.ml index 6dad233..6c3eb90 100644 --- a/relay.ml +++ b/relay.ml @@ -41,7 +41,7 @@ let issue_banner cin cout = let relay_boot (peername, mtx, cin, cout) = (peername, mtx, cin, cout) let relay_handler (_, mtx, _, cout) _ m = - Util.with_mutex mtx (output_sexp cout) m + Util.with_mutex mtx (output_sexp_and_flush cout) m let relay_mainloop (peername, mtx, cin, cout) n = let write_sexp = Util.with_mutex mtx (output_sexp cout) in