diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-18 23:59:53 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-18 23:59:53 +0200 |
commit | 5070d17e7e1f8fbf9c59409de9b0a573054f8c65 (patch) | |
tree | ea27ba07b72f87cdb1c55da43e84c6f4a31665a6 /src/cuirass/http.scm | |
parent | 767f34bd68178af46d48d80a08d6258c71b45ce2 (diff) | |
download | cuirass-5070d17e7e1f8fbf9c59409de9b0a573054f8c65.tar cuirass-5070d17e7e1f8fbf9c59409de9b0a573054f8c65.tar.gz |
http: Handle /build/<id>/details URL.
* src/cuirass/http.scm (url-handler): Add handler for /build/<id>/details.
* src/cuirass/templates.scm (build-details): New procedure.
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 |