Correct server websocket http-request pattern
This commit is contained in:
parent
ae97fb1d1e
commit
af40134c53
|
@ -36,6 +36,6 @@
|
||||||
|
|
||||||
(define (spawn-websocket-server! [port default-http-server-port])
|
(define (spawn-websocket-server! [port default-http-server-port])
|
||||||
(spawn #:name 'websocket-server-listener
|
(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)
|
#:name `(server-poa ,id)
|
||||||
(server-facet/websocket id))))
|
(server-facet/websocket id))))
|
||||||
|
|
Loading…
Reference in New Issue