syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Log HTTP server startup and shutdown

This commit is contained in:
Tony Garnock-Jones 2016-11-21 10:57:43 +13:00
parent c6ca757a7e
commit a7a2a5c492
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/syndicate/drivers/web.rkt
View File

@ -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