diff options
Diffstat (limited to 'tissue/web/server.scm')
-rw-r--r-- | tissue/web/server.scm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/tissue/web/server.scm b/tissue/web/server.scm index 95bed70..2e59a77 100644 --- a/tissue/web/server.scm +++ b/tissue/web/server.scm @@ -157,11 +157,6 @@ See `start-web-server' for documentation of HOSTS." (repository-open (assq-ref host-parameters 'repository-directory)))) (cond - ;; Search page - ((member path (list "/" "/search")) - (search-handler request body - (assq-ref host-parameters 'xapian-directory) - (assq-ref host-parameters 'project))) ;; Static files ((let ((file-path (find file-exists? @@ -178,6 +173,13 @@ See `start-web-server' for documentation of HOSTS." (file-name-extension file-path)))) (call-with-input-file file-path get-bytevector-all)))) + ;; Search page. We look for the search page only after files + ;; because we want to let files shadow the search page if + ;; necessary. + ((member path (list "/" "/search")) + (search-handler request body + (assq-ref host-parameters 'xapian-directory) + (assq-ref host-parameters 'project))) ;; Not found (else (404-response request)))))) |