diff options
| author | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-06-14 18:45:38 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <m.othacehe@gmail.com> | 2020-06-14 18:45:38 +0200 |
| commit | 3db603c1913fe14d260a44b05575a2ead3866b47 (patch) | |
| tree | cb64ac23b08cd31c795ccaaee4d0665f8d4ffd48 /src | |
| parent | c2aed4a5c1cbed44a9cdf9aab660c4a196a7837d (diff) | |
| download | cuirass-3db603c1913fe14d260a44b05575a2ead3866b47.tar cuirass-3db603c1913fe14d260a44b05575a2ead3866b47.tar.gz | |
http: Add build products support to the API.
* src/cuirass/http.scm (build->hydra-build)[build-products]: New variable,
added to "buildproducts" field.
* tests/http.scm (build-query-result): Adapt accordingly.
Diffstat (limited to 'src')
| -rw-r--r-- | src/cuirass/http.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm index 0b2f056..4da36bc 100644 --- a/src/cuirass/http.scm +++ b/src/cuirass/http.scm @@ -84,6 +84,9 @@ (list (build-status scheduled) (build-status started))))) + (define build-products + (db-get-build-products (assq-ref build #:id))) + `((#:id . ,(assq-ref build #:id)) (#:jobset . ,(assq-ref build #:specification)) (#:job . ,(assq-ref build #:job-name)) @@ -105,7 +108,7 @@ (assq-ref build #:status)))) (#:priority . 0) (#:finished . ,(bool->int finished?)) - (#:buildproducts . #nil) + (#:buildproducts . ,(list->vector build-products)) (#:releasename . #nil) (#:buildinputs_builds . #nil))) |