From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Sun, 15 Jan 2017 15:26:27 +0000 (-0600)
Subject: web: Rename handler slot to http-handler.
X-Git-Tag: v0.4.2~18
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=f82b19034aa588a744fff713416bd914778681eb;p=8sync.git

web: Rename handler slot to http-handler.

* 8sync/systems/web.scm (<web-server>, web-server-handle-request):
Rename handler slot to http-handler.
---

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))))