diff options
| -rw-r--r-- | src/cuirass/http.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index e7f0da7..fdcdc06 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -354,10 +354,11 @@ Hydra format." (respond-json (object->json-string (list->vector (db-get-specifications))))) (('GET "build" id) - (let ((hydra-build (handle-build-request - (if (string-suffix? ".drv" id) - (string-append (%store-prefix) "/" id) - (string->number id))))) + (let* ((build (if (string-suffix? ".drv" id) + (string-append (%store-prefix) "/" id) + (string->number id))) + (hydra-build (and build + (handle-build-request build)))) (if hydra-build (respond-json (object->json-string hydra-build)) (respond-build-not-found id)))) |