diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-03 11:03:37 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-03 11:11:43 +0200 |
| commit | 761443bca6178b4ac299a8bd368d1cac4abda5f8 (patch) | |
| tree | 17d8c4f4675b90bb54d8e2ccfef1c80e9985a271 | |
| parent | af84a00818b53d80c1360ea7ed7eeb6e1e3bb4c6 (diff) | |
| download | cuirass-761443bca6178b4ac299a8bd368d1cac4abda5f8.tar cuirass-761443bca6178b4ac299a8bd368d1cac4abda5f8.tar.gz | |
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.
| -rw-r--r-- | src/cuirass/base.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |