From 761443bca6178b4ac299a8bd368d1cac4abda5f8 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Sat, 3 Oct 2020 11:03:37 +0200
Subject: Do not use par-map in fiberized context.

Fixes: <https://issues.guix.gnu.org/43757>.

* src/cuirass/base.scm (fetch-inputs): Call par-map from a separate thread as
this call is not suspendable.
---
 src/cuirass/base.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 0c06bf7..5a0c826 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -745,7 +745,8 @@ by PRODUCT-SPECS."
                  (fetch-input store input
                               #:writable-copy? (compile? input)))))
            inputs))
-         (results (par-map %non-blocking thunks)))
+         (results (non-blocking
+                   (par-map %non-blocking thunks))))
     (map (lambda (checkout)
            (log-message "fetched input '~a' of spec '~a' (commit ~s)"
                         (assq-ref checkout #:input)
-- 
cgit v1.2.3