diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-12-15 15:52:11 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-12-16 15:19:02 +0000 |
| commit | 34b3585b4851f2bf7c3f2ecdc01bc2ea597d0efc (patch) | |
| tree | b30ed679ad01c6e786acdddfd5eb9a51c8ce72b8 /guix-data-service/web/revision/controller.scm | |
| parent | bdcba528fc6c6ba2db6489958229ad94e8ef9ca5 (diff) | |
| download | data-service-34b3585b4851f2bf7c3f2ecdc01bc2ea597d0efc.tar data-service-34b3585b4851f2bf7c3f2ecdc01bc2ea597d0efc.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 |