From d3927217d30eef6207c52c2175ab147edf34e6a0 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Tue, 8 Aug 2017 15:26:15 -0500
Subject: [PATCH] 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.
---
 8sync/systems/websocket/server.scm | 3 +--
 1 file changed, 1 insertion(+), 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)
 
-- 
2.31.1