From 921265d2f3d542845f0f400f133b7dd13e93dc43 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 22 May 2019 23:45:15 +0100 Subject: [PATCH] Repair ws-recv usage; requires rfc6455 package v2.0 or newer --- syndicate/drivers/web.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/syndicate/drivers/web.rkt b/syndicate/drivers/web.rkt index 818940f..0f75196 100644 --- a/syndicate/drivers/web.rkt +++ b/syndicate/drivers/web.rkt @@ -307,10 +307,10 @@ (exn->string e)) (shutdown!)))] (let loop () - (sync (handle-evt wsc (lambda _args - (define msg (ws-recv wsc #:payload-type 'auto)) - (ground-send! (inbound (websocket-in id msg))) - (loop))) + (sync (handle-evt (ws-recv-evt wsc #:payload-type 'auto) + (lambda (msg) + (ground-send! (inbound (websocket-in id msg))) + (loop))) (handle-evt ws-ch (match-lambda ['quit (set! quit-seen? #t)