summaryrefslogtreecommitdiff
path: root/web
diff options
context:
space:
mode:
Diffstat (limited to 'web')
-rw-r--r--web/socket/client.scm8
1 files changed, 8 insertions, 0 deletions
diff --git a/web/socket/client.scm b/web/socket/client.scm
index 3c32894..8a96494 100644
--- a/web/socket/client.scm
+++ b/web/socket/client.scm
@@ -28,6 +28,7 @@
#:use-module (rnrs bytevectors)
#:use-module (rnrs io ports)
#:use-module (srfi srfi-9)
+ #:use-module (srfi srfi-9 gnu)
#:use-module (web request)
#:use-module (web response)
#:use-module (web uri)
@@ -86,6 +87,13 @@ scheme."
(socket websocket-socket)
(state websocket-state set-websocket-state!))
+(define (display-websocket ws port)
+ (format port "#<websocket ~a ~a>"
+ (uri->string (websocket-uri ws))
+ (websocket-state ws)))
+
+(set-record-type-printer! <websocket> display-websocket)
+
(define (websocket-connecting? ws)
"Return #t if the WebSocket WS is in the connecting state."
(eq? (websocket-state ws) 'connecting))