Permalink
Browse files

servestate-host* is now a list of headers

  • Loading branch information...
1 parent a6c3d1f commit 55de83da24aa215a866dd59316625ee6b9d58d74 @vii committed May 8, 2010
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/http/dispatcher.lisp
@@ -6,7 +6,7 @@
(error-responder 'default-http-error-page))
(defun dispatch-servestate (con done *servestate*)
- (dispatcher-respond (find-dispatcher (servestate-host*))
+ (dispatcher-respond (find-dispatcher (first (servestate-host*)))
con done))
(defun-speedy start-http-response (&key (banner (force-byte-vector "200 OK"))

0 comments on commit 55de83d

Please sign in to comment.