diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-15 15:52:11 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-15 15:52:11 +0000 |
| commit | 6c8ade12158cd2f4235834a17a9fe36cc9ac5f9e (patch) | |
| tree | 0df0eb60a8f287391a900c3fd4a869534f9a127e /guix-data-service/web/revision/controller.scm | |
| parent | 2cf94bd140327b1cda5dc9d7a8d3b8c69ec1dfec (diff) | |
| download | data-service-6c8ade12158cd2f4235834a17a9fe36cc9ac5f9e.tar data-service-6c8ade12158cd2f4235834a17a9fe36cc9ac5f9e.tar.gz | |
Improve the revision derivation-outputs page
Neaten up the display of the hashes, and add a reproducibility status column.
Diffstat (limited to 'guix-data-service/web/revision/controller.scm')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 63316a3..bc49703 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -28,6 +28,7 @@ #:use-module (guix-data-service web sxml) #:use-module (guix-data-service web query-parameters) #:use-module (guix-data-service web util) + #:use-module (guix-data-service model utils) #:use-module (guix-data-service jobs load-new-guix-revision) #:use-module (guix-data-service model build) #:use-module (guix-data-service model build-server) @@ -653,6 +654,7 @@ #:sxml (view-revision-derivation-outputs commit-hash query-parameters '() + '() #:path-base path-base #:header-text header-text #:header-link header-link)))) @@ -668,6 +670,12 @@ (assq-ref query-parameters 'reproducibility_status) #:limit-results limit-results #:after-path (assq-ref query-parameters 'after_path))) + (build-server-urls + (group-to-alist + (match-lambda + ((id url lookup-all-derivations) + (cons id url))) + (select-build-servers conn))) (show-next-page? (if all-results #f @@ -684,6 +692,7 @@ #:sxml (view-revision-derivation-outputs commit-hash query-parameters derivation-outputs + build-server-urls show-next-page? #:path-base path-base #:header-text header-text |