diff options
author | Christopher Baines <mail@cbaines.net> | 2019-07-22 20:51:54 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-07-22 20:51:54 +0100 |
commit | 05db0a87f92dbc705d0f9285becff22a2ffdc887 (patch) | |
tree | 247da2ab2663e8a44118fa7ffd426b87ad12ea71 /guix-data-service/web/controller.scm | |
parent | c23822e14dc4e8a32522c563540e0b80941f4ccd (diff) | |
download | data-service-05db0a87f92dbc705d0f9285becff22a2ffdc887.tar data-service-05db0a87f92dbc705d0f9285becff22a2ffdc887.tar.gz |
Switch the index page to show branches for a repository
As that's probably more useful than recent revisions and jobs.
Diffstat (limited to 'guix-data-service/web/controller.scm')
-rw-r--r-- | guix-data-service/web/controller.scm | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 6f2511c..3dec210 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -621,18 +621,8 @@ (lambda (git-repository-details) (cons git-repository-details - (map - (match-lambda - ((id job-id job-events commit source) - (list id - job-id - job-events - commit - source - (git-branches-for-commit conn commit)))) - (guix-revisions-and-jobs-for-git-repository - conn - (car git-repository-details))))) + (all-branches-with-most-recent-commit + conn (first git-repository-details)))) (all-git-repositories conn))))) (('GET "builds") (render-html |