[no subject]

[Ludovic Courtès]

branch: master
commit 5fbbd26a78a3176ef63d81fee03461db5216362f
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Oct 18 15:58:45 2023 +0200

    http: Really fix previous checkout computation.
    
    This a followup to c6fa409ad04b1a96012cef94c54687960ffe8bc3.
    
    * src/cuirass/http.scm (url-handler): Deal with the case where BUILD is
    false or ‘db-get-previous-eval’ returns #f.
---
 src/cuirass/http.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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