[no subject]

[Ludovic Courtès]

branch: master
commit b724dfa32296c4ddfa3ec8ba62c77c64cf97085e
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jun 18 15:12:59 2023 +0200

    http: Evaluation dashboard shows the full list of channels.
    
    This is a followup to c7db7f88a2e722d7e9f4cd20519dafdd4c8d86f6, which
    would only show, say, 'guix-past' and not 'guix' (the latter being a
    dependency of the former).
    
    * src/cuirass/http.scm (dashboard-page): Call 'latest-checkouts' and
    pass #:checkouts to 'evaluation-dashboard'.
    * src/cuirass/templates.scm (evaluation-dashboard): Add #:checkouts and
    honor it.
---
 src/cuirass/http.scm      | 2 ++
 src/cuirass/templates.scm | 3 +--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index af4a555..65255ba 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -444,6 +444,7 @@ passed, only display JOBS targeting this SYSTEM."
   (let* ((spec-name (db-get-evaluation-specification evaluation-id))
          (spec (db-get-specification spec-name))
          (channels (specification-channels spec))
+         (checkouts (latest-checkouts spec evaluation-id))
          (systems (specification-systems spec))
          (default-system
            (if (member "x86_64-linux" systems)
@@ -459,6 +460,7 @@ passed, only display JOBS targeting this SYSTEM."
      (evaluation-dashboard (db-get-evaluation evaluation-id)
                            systems
                            #:channels channels
+                           #:checkouts checkouts
                            #:current-system
                            (or system default-system)
                            #:dashboard-id dashboard-id
diff --git a/src/cuirass/templates.scm b/src/cuirass/templates.scm
index 5335879..8a9a906 100644
--- a/src/cuirass/templates.scm
+++ b/src/cuirass/templates.scm
@@ -1870,6 +1870,7 @@ text-dark d-flex position-absolute w-100"))
 
 (define* (evaluation-dashboard evaluation systems
                                #:key
+                               (checkouts (assq-ref evaluation #:checkouts))
                                channels
                                current-system
                                dashboard-id
@@ -1880,8 +1881,6 @@ text-dark d-flex position-absolute w-100"))
     (assq-ref evaluation #:id))
   (define time
     (assq-ref evaluation #:evaltime))
-  (define checkouts
-    (assq-ref evaluation #:checkouts))
 
   (let ((jobs
          (if names