diff options
author | Andrew Whatson <whatson@tailcall.au> | 2023-04-19 23:11:48 +1000 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2023-04-19 12:00:01 -0400 |
commit | 2d1a0c7ace538146e2b841620779867aaec17753 (patch) | |
tree | 63dfd6d4f687dc522bfb318b8325310fb518699a /web/socket/frame.scm | |
parent | dcd199071cc645842c61079b8a4ace2c6f4719dc (diff) |
client: Support secure websockets.
* web/socket/client.scm (make-client-socket): Add verify-certificate?
parameter. Call open-socket-for-uri to create the socket.
(handshake): Flush the port after writing the request.
(make-websocket): Add #:verify-certificate? parameter.
* web/socket/frame.scm (write-frame): Flush the port after writing the
frame.
Diffstat (limited to 'web/socket/frame.scm')
-rw-r--r-- | web/socket/frame.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/web/socket/frame.scm b/web/socket/frame.scm index f54f016..f3709f6 100644 --- a/web/socket/frame.scm +++ b/web/socket/frame.scm @@ -372,4 +372,5 @@ MASKING-KEY." (when mask (put-bytevector port mask)) ;; Write data, potentially masked. - (put-bytevector port (if mask (masked-data mask data) data)))) + (put-bytevector port (if mask (masked-data mask data) data)) + (force-output port))) |