diff options
| author | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2021-03-18 14:20:02 +0100 |
|---|---|---|
| committer | Jan (janneke) Nieuwenhuizen <janneke@gnu.org> | 2021-03-18 22:49:23 +0100 |
| commit | 2bfbcbfed8b14e226f6c5ed6ec23e8f0fb21a440 (patch) | |
| tree | 36a67990f41cf8751d32676d4bcadef450c91b3e | |
| parent | ee371103855e5bfe8aae3debe442a24c6353e172 (diff) | |
| download | 8sync-2bfbcbfed8b14e226f6c5ed6ec23e8f0fb21a440.tar.gz | |
websocket: server: Remove .upgrade-paths accessor.
* 8sync/systems/websocket/server.scm (<websocket-server>): Remove
.upgrade-paths accessor. There's a method for doing this.
| -rw-r--r-- | 8sync/systems/websocket/server.scm | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/8sync/systems/websocket/server.scm b/8sync/systems/websocket/server.scm index c29ce51..11704d4 100644 --- a/8sync/systems/websocket/server.scm +++ b/8sync/systems/websocket/server.scm @@ -1,7 +1,7 @@ ;;; guile-websocket --- WebSocket client/server ;;; Copyright © 2015 David Thompson <davet@gnu.org> ;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org> -;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> +;;; Copyright © 2020,2021 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> ;;; ;;; This file is part of guile-websocket. ;;; @@ -71,8 +71,7 @@ string." ((ws-send websocket-server-send)) (upgrade-paths #:init-value `(("websocket" . ,(wrap-apply websocket-client-loop))) - #:allocation #:each-subclass - #:accessor .upgrade-paths) + #:allocation #:each-subclass) (gen-client-id #:init-thunk make-simple-counter) |