Hoist broker startup into a module+ main

2016-11-26 11:19:31 +13:00 · 2016-11-26 11:19:31 +13:00 · 8f181f5b4d
parent b72fca51b0
commit 8f181f5b4d
1 changed files with 5 additions and 2 deletions
--- 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)))