diff options
| author | Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk> | 2019-09-29 19:13:02 +0100 |
|---|---|---|
| committer | Christopher Baines <christopher.baines@digital.cabinet-office.gov.uk> | 2019-10-02 08:16:54 +0100 |
| commit | 9acb0aa55b5787edef885bb812e2ee66d4401e80 (patch) | |
| tree | 74c44489f38b2dd2274acb7390205c13a0480fac | |
| parent | d27ff21e430cd38b02bd70a0dc8d60c9c2736f83 (diff) | |
| download | cuirass-9acb0aa55b5787edef885bb812e2ee66d4401e80.tar cuirass-9acb0aa55b5787edef885bb812e2ee66d4401e80.tar.gz | |
http: Support fetching builds by derivation.
There's a one to one mapping of build id to derivation, so allow querying by
derivation file name as well. I'm looking at this as I'm interested in getting
build information in to the Guix Data Service.
* src/cuirass/http.scm (url-handler): Support fetching builds by numeric id or
the derivation file name.
| -rw-r--r-- | src/cuirass/http.scm | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 2da3637..b6a4358 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -42,6 +42,7 @@ #:use-module (sxml simple) #:use-module (cuirass templates) #:use-module (guix utils) + #:use-module ((guix store) #:select (%store-prefix)) #:use-module (guix build union) #:export (run-cuirass-server)) @@ -243,11 +244,14 @@ Hydra format." (((or "jobsets" "specifications") . rest) (respond-json (object->json-string (list->vector (db-get-specifications))))) - (("build" build-id) - (let ((hydra-build (handle-build-request (string->number build-id)))) + (("build" id) + (let ((hydra-build (handle-build-request + (if (string-suffix? ".drv" id) + (string-append (%store-prefix) "/" id) + (string->number id))))) (if hydra-build (respond-json (object->json-string hydra-build)) - (respond-build-not-found build-id)))) + (respond-build-not-found id)))) (("build" build-id "details") (let ((build (db-get-build (string->number build-id)))) (if build |