projects
/
8sync.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
guix: Use guile-3.0.
[8sync.git]
/
8sync
/
systems
/
websocket
/
server.scm
diff --git
a/8sync/systems/websocket/server.scm
b/8sync/systems/websocket/server.scm
index c29ce51e44c40c545219f258daad01dee5207631..11704d477e61a5051afdb2c24c103d360a4c4086 100644
(file)
--- 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>
;;; 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.
;;;
;;;
;;; 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)))
((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)
(gen-client-id #:init-thunk make-simple-counter)