diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-08-05 19:45:10 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-08-05 19:45:10 +0100 |
| commit | 4b59108fdd320d32378cd1f31e9f394af52122ea (patch) | |
| tree | 8a46427002056e54960e0badd208222e8a3e18e2 /guix-data-service | |
| parent | 70126f7ed0babca5af1ba98296979a4aeaeac991 (diff) | |
| download | data-service-4b59108fdd320d32378cd1f31e9f394af52122ea.tar data-service-4b59108fdd320d32378cd1f31e9f394af52122ea.tar.gz | |
Properly handle not finding a matching derivation
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/web/controller.scm | 7 |
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))) |