diff --git a/scheme/httpd/file-dir-handler.scm b/scheme/httpd/file-dir-handler.scm index fb2a3ed..fa1e09e 100644 --- a/scheme/httpd/file-dir-handler.scm +++ b/scheme/httpd/file-dir-handler.scm @@ -79,12 +79,6 @@ req))) -;;; The null path handler -- handles nothing, sends back an error response. -;;; Can be useful as the default in table-driven path handlers. - -(define (null-path-handler path req) - (make-http-error-response http-status/not-found req)) - ;;;; Support procs for the path handlers ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; diff --git a/scheme/httpd/handlers.scm b/scheme/httpd/handlers.scm index 6ab4bf2..c539fd1 100644 --- a/scheme/httpd/handlers.scm +++ b/scheme/httpd/handlers.scm @@ -86,3 +86,9 @@ default-handler)) default-handler handler-alist)) + +;;; The null path handler -- handles nothing, sends back an error response. +;;; Can be useful as the default in table-driven path handlers. + +(define (null-path-handler path req) + (make-http-error-response http-status/not-found req)) diff --git a/scheme/packages.scm b/scheme/packages.scm index 54e380f..27b0a06 100644 --- a/scheme/packages.scm +++ b/scheme/packages.scm @@ -370,14 +370,14 @@ make-path-handler make-host-name-handler make-path-prefix-handler - alist-path-dispatcher)) + alist-path-dispatcher + null-path-handler)) (define-interface httpd-file-directory-handlers-interface (export home-dir-handler tilde-home-dir-handler rooted-file-handler - rooted-file-or-directory-handler - null-path-handler)) + rooted-file-or-directory-handler)) (define-interface seval-handler-interface (export seval-handler)) @@ -768,6 +768,7 @@ httpd-request ; REQUEST record type, v0.9-request srfi-1 ; FOLD-RIGHT srfi-13 ; STRING-TRIM + httpd-responses ) (files (httpd handlers)))