summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/web/server.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index 338598e..d07e629 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -17,6 +17,8 @@
;;; along with tissue. If not, see <https://www.gnu.org/licenses/>.
(define-module (tissue web server)
+ #:use-module (rnrs conditions)
+ #:use-module (rnrs exceptions)
#:use-module (rnrs io ports)
#:use-module (srfi srfi-1)
#:use-module (srfi srfi-26)
@@ -177,11 +179,9 @@ STATE-DIRECTORY."
(hostname (match (assq-ref (request-headers request) 'host)
((hostname . _) hostname)))
(host-parameters (or (assoc-ref hosts hostname)
- ;; If no matching host is found, pick the
- ;; first known host.
- (match hosts
- (((_ . host-parameters) _ ...)
- host-parameters)))))
+ (raise (condition
+ (make-message-condition "Unknown host")
+ (make-irritants-condition hostname))))))
(format #t "~a ~a\n"
(request-method request)
path)