Properly handle not finding a matching derivation
This commit is contained in:
parent
70126f7ed0
commit
4b59108fdd
1 changed files with 5 additions and 2 deletions
|
|
@ -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)))
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue