From a7a2a5c4921e61321e46991e6c91d5e7eb12f898 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Mon, 21 Nov 2016 10:57:43 +1300 Subject: [PATCH] Log HTTP server startup and shutdown --- racket/syndicate/drivers/web.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt index 6537d37..a3b46e2 100644 --- a/racket/syndicate/drivers/web.rkt +++ b/racket/syndicate/drivers/web.rkt @@ -209,7 +209,10 @@ (match-lambda ['quit (void)])))))) - (on-stop (channel-put listener-control 'quit)) + (on-start (log-syndicate/drivers/web-info "Starting HTTP listener on port ~v" port)) + + (on-stop (channel-put listener-control 'quit) + (log-syndicate/drivers/web-info "Stopping HTTP listener on port ~v" port)) (on (message (inbound (web-raw-request $id port $conn $lowlevel-req $control-ch))) (define web-req (web-request id