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

Correct server websocket http-request pattern

This commit is contained in:
Tony Garnock-Jones 2019-05-16 12:37:39 +01:00
parent ae97fb1d1e
commit af40134c53
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
syndicate/distributed/server/websocket.rkt
View File

@ -36,6 +36,6 @@
(define (spawn-websocket-server! [port default-http-server-port])
(spawn #:name 'websocket-server-listener
(during/spawn (http-request $id 'get (http-resource (http-server _ port #f) `()) _ _ _)
(during/spawn (http-request $id 'get (http-resource (http-server _ port #f) `("" ())) _ _ _)
#:name `(server-poa ,id)
(server-facet/websocket id))))