diff options
author | Ludovic Courtès <ludo@gnu.org> | 2018-01-24 13:59:28 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-24 13:59:28 +0100 |
commit | 74f3abfba38c7a4f4131eb1b3351b65192fecade (patch) | |
tree | 497cf695e7ddabd965ab6c4390f0981f91fdb2e2 /src/cuirass/http.scm | |
parent | 4306667a491841b69641046cfab92688145a3042 (diff) | |
download | cuirass-74f3abfba38c7a4f4131eb1b3351b65192fecade.tar cuirass-74f3abfba38c7a4f4131eb1b3351b65192fecade.tar.gz |
http: /build: Gracefully handle empty output list.
* src/cuirass/http.scm (url-handler): Add case for empty #:outputs.
Diffstat (limited to 'src/cuirass/http.scm')
-rw-r--r-- | src/cuirass/http.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 0417ffb..2f25e0f 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -141,6 +141,11 @@ (respond (build-response #:code 302 #:headers `((location . ,uri))) #:body ""))) + (() + ;; Not entry for BUILD-ID in the 'Outputs' table. + (respond-json-with-error + 500 + (format #f "Outputs of build ~a are unknown." build-id))) (#f (respond-build-not-found build-id))) (respond-build-not-found build-id)))) |