aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web/controller.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-07-22 20:00:11 +0100
committerChristopher Baines <mail@cbaines.net>2019-07-22 20:00:11 +0100
commit91be72df039b1b1c914bece96a81d4b0cdee2144 (patch)
tree88252338dba6aeaffe67172c92af0d506999127a /guix-data-service/web/controller.scm
parent1f1deac29609fb63abf0f0a9939157df23b651a3 (diff)
downloaddata-service-91be72df039b1b1c914bece96a81d4b0cdee2144.tar
data-service-91be72df039b1b1c914bece96a81d4b0cdee2144.tar.gz
Display the jobs related to a revision on the revision page
Diffstat (limited to 'guix-data-service/web/controller.scm')
-rw-r--r--guix-data-service/web/controller.scm9
1 files changed, 7 insertions, 2 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm
index e49e0a7..6f2511c 100644
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@@ -103,7 +103,9 @@
(git-repositories-and-branches
(git-branches-with-repository-details-for-commit conn commit-hash))
(derivations-counts
- (count-packages-derivations-in-revision conn commit-hash)))
+ (count-packages-derivations-in-revision conn commit-hash))
+ (jobs-and-events
+ (select-jobs-and-events-for-commit conn commit-hash)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
@@ -125,6 +127,7 @@
packages-count
git-repositories-and-branches
derivations-counts
+ jobs-and-events
#:path-base path-base
#:header-text header-text)
#:extra-headers http-headers-for-unchanging-content)))))
@@ -152,7 +155,9 @@
commit-hash
(select-job-for-commit
conn commit-hash)
- (git-branches-with-repository-details-for-commit conn commit-hash))))))
+ (git-branches-with-repository-details-for-commit conn commit-hash)
+ (select-jobs-and-events-for-commit conn commit-hash))))))
+
(define* (render-revision-packages mime-types
conn