diff options
Diffstat (limited to 'guix-qa-frontpage')
| -rw-r--r-- | guix-qa-frontpage/server.scm | 6 | ||||
| -rw-r--r-- | guix-qa-frontpage/view/util.scm | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/guix-qa-frontpage/server.scm b/guix-qa-frontpage/server.scm index 17b8c29..2ab2bb2 100644 --- a/guix-qa-frontpage/server.scm +++ b/guix-qa-frontpage/server.scm @@ -69,7 +69,11 @@ (('GET "assets" rest ...) (or (handle-static-assets (string-join rest "/") (request-headers request)) - (not-found (request-uri request)))) + (list (build-response #:code 404) + (string-append + "Resource not found: " + (uri->string + (request-uri request)))))) (('GET "metrics") (gc-metrics-updater!) (list (build-response diff --git a/guix-qa-frontpage/view/util.scm b/guix-qa-frontpage/view/util.scm index ac1b912..f42388c 100644 --- a/guix-qa-frontpage/view/util.scm +++ b/guix-qa-frontpage/view/util.scm @@ -22,6 +22,7 @@ #:use-module (guix-data-service web util) #:use-module (guix-data-service web html-utils) #:use-module ((guix-data-service web render) #:prefix guix-data-service:) + #:use-module (ice-9 ftw) #:use-module (ice-9 vlist) #:use-module (ice-9 match) #:use-module (ice-9 binary-ports) @@ -29,6 +30,7 @@ #:use-module (srfi srfi-19) #:use-module (srfi srfi-26) #:use-module (web uri) + #:use-module (web response) #:use-module (texinfo) #:use-module (texinfo html) #:use-module (json) |