From acffb47ffdb10e3c74e48a76db76efe1bc3c0909 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 1 Jun 2023 11:04:39 +0100
Subject: Fix for-each-build

Use stream-fold as intended, rather than stream-for-each.
---
 guix-qa-frontpage/manage-builds.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'guix-qa-frontpage')

diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index 4d357a0..fbffef3 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -308,7 +308,7 @@
 
 (define (for-each-build build-coordinator proc . criteria)
   (define (process-batch)
-    (stream-for-each
+    (stream-fold
      (lambda (build result)
        (proc build)
        (+1 result))
-- 
cgit v1.2.3