diff options
Diffstat (limited to 'src/cuirass/http.scm')
| -rw-r--r-- | src/cuirass/http.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 94a2f25..19719e0 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -238,6 +238,15 @@ Hydra format." (if hydra-build (respond-json (object->json-string hydra-build)) (respond-build-not-found build-id)))) + (("build" build-id "details") + (let ((build (db-get-build (string->number build-id)))) + (if build + (respond-html + (html-page (string-append "Build " build-id) + (build-details build) + `(((#:name . ,(assq-ref build #:specification)) + (#:link . ,(string-append "/spec/" (assq-ref build #:specification))))))) + (respond-build-not-found build-id)))) (("build" build-id "log" "raw") (let ((build (db-get-build (string->number build-id)))) (if build |