graft: Graft files in parallel.
* guix/build/graft.scm (rewrite-directory): Use 'n-par-for-each' instead of 'for-each'.master
parent
9c88f655e6
commit
333c376c45
|
@ -21,6 +21,7 @@
|
||||||
#:use-module (rnrs bytevectors)
|
#:use-module (rnrs bytevectors)
|
||||||
#:use-module (rnrs io ports)
|
#:use-module (rnrs io ports)
|
||||||
#:use-module (ice-9 match)
|
#:use-module (ice-9 match)
|
||||||
|
#:use-module (ice-9 threads)
|
||||||
#:export (replace-store-references
|
#:export (replace-store-references
|
||||||
rewrite-directory))
|
rewrite-directory))
|
||||||
|
|
||||||
|
@ -117,6 +118,7 @@ file name pairs."
|
||||||
(else
|
(else
|
||||||
(error "unsupported file type" stat)))))
|
(error "unsupported file type" stat)))))
|
||||||
|
|
||||||
(for-each rewrite-leaf (find-files directory)))
|
(n-par-for-each (parallel-job-count)
|
||||||
|
rewrite-leaf (find-files directory)))
|
||||||
|
|
||||||
;;; graft.scm ends here
|
;;; graft.scm ends here
|
||||||
|
|
Loading…
Reference in New Issue