Repair ws-recv usage; requires rfc6455 package v2.0 or newer
This commit is contained in:
parent
58231b253f
commit
921265d2f3
|
@ -307,10 +307,10 @@
|
||||||
(exn->string e))
|
(exn->string e))
|
||||||
(shutdown!)))]
|
(shutdown!)))]
|
||||||
(let loop ()
|
(let loop ()
|
||||||
(sync (handle-evt wsc (lambda _args
|
(sync (handle-evt (ws-recv-evt wsc #:payload-type 'auto)
|
||||||
(define msg (ws-recv wsc #:payload-type 'auto))
|
(lambda (msg)
|
||||||
(ground-send! (inbound (websocket-in id msg)))
|
(ground-send! (inbound (websocket-in id msg)))
|
||||||
(loop)))
|
(loop)))
|
||||||
(handle-evt ws-ch (match-lambda
|
(handle-evt ws-ch (match-lambda
|
||||||
['quit
|
['quit
|
||||||
(set! quit-seen? #t)
|
(set! quit-seen? #t)
|
||||||
|
|
Loading…
Reference in New Issue