diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-05 13:43:54 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-05 13:46:20 +0000 |
| commit | 03327c0cc325ea432fac5fb55a19a0aa9ae4e93b (patch) | |
| tree | 5e0d4f1db619102492d7089acfc802637e76dfc6 /guix-data-service/web/revision | |
| parent | c3cb04cb8052492dae715012586f9e3d2d64579d (diff) | |
| download | data-service-03327c0cc325ea432fac5fb55a19a0aa9ae4e93b.tar data-service-03327c0cc325ea432fac5fb55a19a0aa9ae4e93b.tar.gz | |
Include output information in the package page response
As this will be useful for QA to say whether the package builds reproducibly
or not.
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 42 | ||||
| -rw-r--r-- | guix-data-service/web/revision/html.scm | 2 |
2 files changed, 36 insertions, 8 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index f55b0e0..938f55c 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -927,11 +927,38 @@ locale))) (derivations (with-resource-from-pool (connection-pool) conn - (select-derivations-by-revision-name-and-version - conn - commit-hash - name - version))) + (map + (lambda (derivation-details) + (append + derivation-details + (list + (map + (match-lambda + ((name path hash-algorithm hash recursive?) + `((name . ,name) + (path . ,path) + (hash_algorithm . ,hash-algorithm) + (hash . ,hash) + (recursive? . ,recursive?) + (nars + . ,(list->vector + (map (match-lambda + ((hash-algorithm hash size + urls signatures) + `((hash . ((algorithm . ,hash-algorithm) + (value . ,hash))) + (size . ,size)))) + (select-nars-for-output + conn + path))))))) + (select-derivation-outputs-by-derivation-file-name + conn + (third derivation-details)))))) + (select-derivations-by-revision-name-and-version + conn + commit-hash + name + version)))) (git-repositories (with-resource-from-pool (connection-pool) conn (git-repositories-containing-commit conn @@ -959,10 +986,11 @@ (home-page . ,home-page)))) (derivations . ,(list->vector (map (match-lambda - ((system target file-name status) + ((system target file-name status outputs) `((system . ,system) (target . ,target) - (derivation . ,file-name)))) + (derivation . ,file-name) + (outputs . ,(list->vector outputs))))) derivations)))) #:extra-headers http-headers-for-unchanging-content)) (else diff --git a/guix-data-service/web/revision/html.scm b/guix-data-service/web/revision/html.scm index 0f1717e..6081c69 100644 --- a/guix-data-service/web/revision/html.scm +++ b/guix-data-service/web/revision/html.scm @@ -297,7 +297,7 @@ (tbody ,@(map (match-lambda - ((system target file-name builds) + ((system target file-name builds outputs) `(tr (td (samp ,system)) (td (samp ,target)) |