X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=8sync%2Fsystems%2Fweb.scm;fp=8sync%2Fsystems%2Fweb.scm;h=597fd008574be22775837f9fe8695b1e6e12dc9c;hp=ce1f6c74d3702fa8ddfcd080f9529c16bbe61657;hb=f82b19034aa588a744fff713416bd914778681eb;hpb=6c17108201b3fe15bc3818d42a7100cd0513dd50

diff --git a/8sync/systems/web.scm b/8sync/systems/web.scm
index ce1f6c7..597fd00 100644
--- a/8sync/systems/web.scm
+++ b/8sync/systems/web.scm
@@ -54,8 +54,10 @@
         #:accessor web-server-addr)
   (socket #:init-value #f
           #:accessor web-server-socket)
-  (handler #:init-keyword #:handler
-           #:getter web-server-handler))
+  (upgrade #:init-value '()
+           #:allocation #:each-subclass)
+  (http-handler #:init-keyword #:http-handler
+                #:getter web-server-http-handler))
 
 (define-method (initialize (web-server <web-server>) init-args)
   (next-method)
@@ -171,7 +173,7 @@ as we're alive."
 (define (web-server-handle-request web-server message
                                    request body)
   (receive (response body)
-      ((web-server-handler web-server) request body)
+      ((web-server-http-handler web-server) request body)
     (receive (response body)
         (sanitize-response request response body)
       (<-reply message response body))))