diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-09-15 13:23:42 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-09-15 13:23:42 +0100 |
| commit | 1c2df1039abd75ec7591157a7717e37511a8c7ff (patch) | |
| tree | 6568465e128ff535d34e8762ac974509aabe21e9 | |
| parent | 9541f983c80234b1ba486eaf31113c5babef1083 (diff) | |
| download | qa-frontpage-1c2df1039abd75ec7591157a7717e37511a8c7ff.tar qa-frontpage-1c2df1039abd75ec7591157a7717e37511a8c7ff.tar.gz | |
Fix some unbound variables
| -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) |