[no subject]

[Ludovic Courtès]

branch: master
commit ae4179907f5b2359adadfe12219c711b6f9687ee
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Mon Jun 26 23:36:24 2023 +0200

    database: 'db-get-latest-checkout' might get zero rows.
    
    * src/cuirass/database.scm (db-get-latest-checkout): Remove call to
    'expect-one-row' and adjust 'match' pattern accordingly.
---
 src/cuirass/database.scm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 0be7000..a3e8b19 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1459,13 +1459,12 @@ WHERE evaluation =" eval-id " ORDER BY channel ASC;"))
   "Return the first checkout for the CHANNEL channel, part of SPEC
 specification with an evaluation id inferior or equal to EVAL-ID."
   (with-db-worker-thread db
-    (match (expect-one-row
-            (exec-query/bind
-             db " SELECT channel, revision, directory FROM Checkouts
+    (match (exec-query/bind
+            db " SELECT channel, revision, directory FROM Checkouts
  WHERE specification = " spec " AND channel = " (symbol->string channel)
- " AND evaluation <= " eval-id "ORDER BY evaluation DESC LIMIT 1;"))
+            " AND evaluation <= " eval-id "ORDER BY evaluation DESC LIMIT 1;")
       (() #f)
-      ((channel revision directory)
+      (((channel revision directory))
        `((#:commit . ,revision)
          (#:channel . ,(string->symbol channel))
          (#:directory . ,directory))))))