From c2ece35bf96d69432ddb8536a37f9f9286bd3cf8 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 30 Nov 2016 10:19:56 +1300 Subject: [PATCH] Add #:hook to spawn-broker-server-connection --- racket/syndicate/broker/server.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/racket/syndicate/broker/server.rkt b/racket/syndicate/broker/server.rkt index 1a3a2f4..a8e957f 100644 --- a/racket/syndicate/broker/server.rkt +++ b/racket/syndicate/broker/server.rkt @@ -48,8 +48,11 @@ (resource-path->string (web-resource-path http-resource)))) (lambda (v) (broker-data scope v))) -(define (spawn-broker-server-connection req-id http-req #:scope [scope (http-req->scope http-req)]) +(define (spawn-broker-server-connection req-id http-req + #:scope [scope (http-req->scope http-req)] + #:hook [hook void]) (actor #:name (list 'broker:connection req-id) + (hook) (on-start (log-syndicate-broker-info "Starting broker connection ~v" req-id)) (on-stop (log-syndicate-broker-info "Ending broker connection ~v" req-id))