ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-12 06:06:53 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

graft: Graft files in parallel.

Browse source 
* guix/build/graft.scm (rewrite-directory): Use 'n-par-for-each' instead
  of 'for-each'.
This commit is contained in:
Ludovic Courtès 2015-11-16 14:22:13 +01:00
parent 9c88f655e6
commit 333c376c45
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/build/graft.scm
View file

@ -21,6 +21,7 @@ (define-module (guix build graft)
#:use-module (rnrs bytevectors)
#:use-module (rnrs io ports)
#:use-module (ice-9 match)
#:use-module (ice-9 threads)
#:export (replace-store-references
rewrite-directory))
@ -117,6 +118,7 @@ (define (rewrite-leaf file)
(else
(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