Properly handle not finding a matching derivation

This commit is contained in:
Christopher Baines 2019-08-05 19:45:10 +01:00
parent 70126f7ed0
commit 4b59108fdd

View file

@ -518,8 +518,11 @@
builds) builds)
#:extra-headers http-headers-for-unchanging-content)) #: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) (define (render-store-item conn filename)
(let ((derivation (select-derivation-by-output-filename conn filename))) (let ((derivation (select-derivation-by-output-filename conn filename)))