[no subject]

[Ludovic Courtès]

branch: main
commit 754e53038b9fd16afcd1ec1e8141989dc31a9145
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri May 24 11:09:08 2024 +0200

    database: Simplify ‘db-register-builds’.
    
    * src/cuirass/database.scm (db-register-builds)[new-outputs?]: Use
    ‘find’ instead of building a list with ‘filter-map’.
---
 src/cuirass/database.scm | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 8b1c093..12b763f 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -1130,14 +1130,8 @@ WHERE Builds.status = " (build-status scheduled)
 
 (define (db-register-builds builds specification)
   (define (new-outputs? outputs)
-    (let ((new-outputs
-           (filter-map (lambda (output)
-                         (let ((drv (db-get-output
-                                     (output-item output))))
-                           (and (not drv)
-                                (output-item output))))
-                       outputs)))
-      (not (null? new-outputs))))
+    (find (negate (compose db-get-output output-item))
+          outputs))
 
   (define (build-priority priority)
     (let ((spec-priority (specification-priority specification)))