aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-08-05 19:45:10 +0100
committerChristopher Baines <mail@cbaines.net>2019-08-05 19:45:10 +0100
commit4b59108fdd320d32378cd1f31e9f394af52122ea (patch)
tree8a46427002056e54960e0badd208222e8a3e18e2
parent70126f7ed0babca5af1ba98296979a4aeaeac991 (diff)
downloaddata-service-4b59108fdd320d32378cd1f31e9f394af52122ea.tar
data-service-4b59108fdd320d32378cd1f31e9f394af52122ea.tar.gz
Properly handle not finding a matching derivation
-rw-r--r--guix-data-service/web/controller.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm
index 974722d..e55ebae 100644
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@@ -518,8 +518,11 @@
builds)
#:extra-headers http-headers-for-unchanging-content))
- #f ;; TODO
- )))
+ (render-html
+ #:sxml (general-not-found
+ "Derivation not found"
+ "No derivation found with this file name.")
+ #:code 404))))
(define (render-store-item conn filename)
(let ((derivation (select-derivation-by-output-filename conn filename)))