diff options
| author | Christopher Allan Webber <cwebber@dustycloud.org> | 2017-08-08 15:26:15 -0500 |
|---|---|---|
| committer | Christopher Allan Webber <cwebber@dustycloud.org> | 2017-08-08 15:26:15 -0500 |
| commit | d3927217d30eef6207c52c2175ab147edf34e6a0 (patch) | |
| tree | 50b8be03440c1a2ff5e6a4a63e2797000af47a81 | |
| parent | d21f6b70e8efcfe5ebd00bd2e5293fe1656afdff (diff) | |
| download | 8sync-d3927217d30eef6207c52c2175ab147edf34e6a0.tar.gz | |
Remove the wrap-apply surrounding websocket-client-loop in <websocket-server>
* 8sync/systems/websocket/server.scm (<websocket-server>):
Remove the wrap-apply surrounding websocket-client-loop in <websocket-server>'s
upgrade-paths slot.
| -rw-r--r-- | 8sync/systems/websocket/server.scm | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/8sync/systems/websocket/server.scm b/8sync/systems/websocket/server.scm index 81c9244..4751067 100644 --- a/8sync/systems/websocket/server.scm +++ b/8sync/systems/websocket/server.scm @@ -68,8 +68,7 @@ string." (define-actor <websocket-server> (<web-server>) ((ws-send websocket-server-send)) - (upgrade-paths #:init-value `(("websocket" . - ,(wrap-apply websocket-client-loop))) + (upgrade-paths #:init-value `(("websocket" . ,websocket-client-loop)) #:allocation #:each-subclass #:accessor .upgrade-paths) |