Skip to content
Snippets Groups Projects
Unverified Commit 71aac24f authored by Mathieu Othacehe's avatar Mathieu Othacehe
Browse files

Remove another par-map call.

This is a follow-up of 761443bc.

* src/cuirass/base.scm (fetch-inputs): Use map to replace the previous par-map
call.
(compile-checkouts): Also replace par-map call by map.
parent 761443bc
No related branches found
No related tags found
No related merge requests found
......@@ -745,8 +745,7 @@ by PRODUCT-SPECS."
(fetch-input store input
#:writable-copy? (compile? input)))))
inputs))
(results (non-blocking
(par-map %non-blocking thunks))))
(results (map %non-blocking thunks)))
(map (lambda (checkout)
(log-message "fetched input '~a' of spec '~a' (commit ~s)"
(assq-ref checkout #:input)
......@@ -767,7 +766,7 @@ by PRODUCT-SPECS."
(assq-ref checkout #:commit))
(compile checkout)))
checkouts))
(results (par-map %non-blocking thunks)))
(results (map %non-blocking thunks)))
(map (lambda (checkout)
(log-message "compiled input '~a' of spec '~a' (commit ~s)"
(assq-ref checkout #:input)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment