;;; 8sync --- Asynchronous programming for Guile
-;;; Copyright (C) 2017 Christopher Allan Webber <cwebber@dustycloud.org>
+;;; Copyright © 2017 Christopher Allan Webber <cwebber@dustycloud.org>
;;;
;;; Code (also under the LGPL) borrowed from fibers:
-;;; Copyright (C) 2016 Andy Wingo <wingo@pobox.com>
+;;; Copyright © 2016 Andy Wingo <wingo@pobox.com>
;;; and Guile:
-;;; Copyright (C) 2010, 2011, 2012, 2015 Free Software Foundation, Inc.
+;;; Copyright © 2010, 2011, 2012, 2015 Free Software Foundation, Inc.
;;;
;;; This file is part of 8sync.
;;;
#: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)
(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))))