From 71447a042822bf5eea889df4383c330efdf1f2d6 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 --- imperative/drivers/web.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/imperative/drivers/web.rkt b/imperative/drivers/web.rkt index 818940f..0f75196 100644 --- a/imperative/drivers/web.rkt +++ b/imperative/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)