branch master updated: http: Grab checkouts of the previous evaluations for “/build/ID/details”.

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script.

civodul pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new c6fa409  http: Grab checkouts of the previous evaluations for 
“/build/ID/details”.
c6fa409 is described below

commit c6fa409ad04b1a96012cef94c54687960ffe8bc3
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Oct 18 15:44:24 2023 +0200

    http: Grab checkouts of the previous evaluations for “/build/ID/details”.
    
    In commit df606ce4529172e6c9bcad9b71f67183dcad7d83, we were showing the
    checkouts of the evaluation of the previous build.  However, that’s
    typically much older than checkouts of the previous evaluation, which
    are known to have led to the same successful build.
    
    * src/cuirass/http.scm (url-handler): In “/build/ID/details”, compute
    ‘previous-checkouts’ based on the previous evaluation.
---
 src/cuirass/http.scm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/cuirass/http.scm b/src/cuirass/http.scm
index 4a3756b..5833611 100644
--- a/src/cuirass/http.scm
+++ b/src/cuirass/http.scm
@@ -832,10 +832,9 @@ passed, only display JOBS targeting this SYSTEM."
                      (order . evaluation)
                      (nr . 10)))))
             (previous-checkouts
-             (match history
-               ((previous . _)
-                (latest-checkouts spec (build-evaluation-id previous)))
-               (_ '())))
+             (latest-checkouts spec
+                               (db-get-previous-eval
+                                (build-evaluation-id build))))
             (failure? (and build
                            (= (build-status failed)
                               (build-current-status build))))