Repair ws-recv usage; requires rfc6455 package v2.0 or newer

2019-05-22 23:45:15 +01:00 · 2019-05-22 23:45:15 +01:00 · 921265d2f3
parent 58231b253f
commit 921265d2f3
1 changed files with 4 additions and 4 deletions
--- 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)