diff options
| author | Christopher Allan Webber <cwebber@dustycloud.org> | 2017-01-15 09:26:27 -0600 |
|---|---|---|
| committer | Christopher Allan Webber <cwebber@dustycloud.org> | 2017-01-15 09:39:52 -0600 |
| commit | f82b19034aa588a744fff713416bd914778681eb (patch) | |
| tree | ad3fdb9f25df512d514ac5816cc189f5768dc2fd | |
| parent | 6c17108201b3fe15bc3818d42a7100cd0513dd50 (diff) | |
| download | 8sync-f82b19034aa588a744fff713416bd914778681eb.tar.gz | |
web: Rename handler slot to http-handler.
* 8sync/systems/web.scm (<web-server>, web-server-handle-request):
Rename handler slot to http-handler.
| -rw-r--r-- | 8sync/systems/web.scm | 8 |
1 files changed, 5 insertions, 3 deletions
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)))) |