correct call of http-error in MAKE-HOST-NAME-HANDLER

This commit is contained in:
vibr 2005-04-13 20:48:57 +00:00
parent 97f730075d
commit 453a7cdde6
1 changed files with 1 additions and 1 deletions

View File

@ -53,7 +53,7 @@
(let ((val (string-trim maybe-val))) (let ((val (string-trim maybe-val)))
(or (string-ci=? hostname val) (or (string-ci=? hostname val)
(string-prefix-ci? (string-append hostname ":") val))) (string-prefix-ci? (string-append hostname ":") val)))
(http-error (status-code bad-request) "No Host: header")))) (http-error (status-code bad-request) req "No Host: header"))))
handler default-handler)) handler default-handler))
;; selects handler according to path-prefix ;; selects handler according to path-prefix