From 8f181f5b4d4be7e2e30825fe8a2a05ec97e97779 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 26 Nov 2016 11:19:31 +1300 Subject: [PATCH] Hoist broker startup into a module+ main --- racket/syndicate/broker/server.rkt | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/racket/syndicate/broker/server.rkt b/racket/syndicate/broker/server.rkt index 105581a..7e7a801 100644 --- a/racket/syndicate/broker/server.rkt +++ b/racket/syndicate/broker/server.rkt @@ -111,5 +111,8 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(actor #:name 'broker:vh (assert (web-virtual-host "http" _ 8000))) -(spawn-broker-server 8000) +(module+ main + (run-ground + (activate "..") + (actor #:name 'broker:vh (assert (web-virtual-host "http" _ 8000))) + (spawn-broker-server 8000)))