[no subject]

[Mathieu Othacehe]

branch: master
commit bc821c8eb953d3ecba7f61c7af21879ba9085c69
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Mon Sep 13 22:40:20 2021 +0200

    http: Display all the evaluation channel checkouts.
    
    * src/cuirass/http.scm (evaluation-html-page): Use all the channel checkouts
    instead of only the new checkouts.
---
 src/cuirass/http.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 69f9834..14d1249 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -22,6 +22,7 @@
 ;;; along with Cuirass.  If not, see <http://www.gnu.org/licenses/>.
 
 (define-module (cuirass http)
+  #:use-module (cuirass base)
   #:use-module (cuirass config)
   #:use-module (cuirass database)
   #:use-module ((cuirass base) #:select (evaluation-log-file))
@@ -243,12 +244,12 @@ Hydra format."
                                border-high-id border-low-id)
   "Return the HTML page representing EVALUATION."
   (define id             (assq-ref evaluation #:id))
-  (define builds-id-max (db-get-builds-max id status))
-  (define builds-id-min (db-get-builds-min id status))
-  (define specification (db-get-evaluation-specification id))
-  (define channels      (specification-channels
-                         (db-get-specification specification)))
-  (define checkouts     (db-get-checkouts id))
+  (define builds-id-max  (db-get-builds-max id status))
+  (define builds-id-min  (db-get-builds-min id status))
+  (define specification  (db-get-evaluation-specification id))
+  (define specification* (db-get-specification specification))
+  (define channels       (specification-channels specification*))
+  (define checkouts      (latest-checkouts specification* id))
 
   (define builds
     (vector->list