amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00: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
Download patch file Download diff file Expand all files Collapse all files

4
guix/build/graft.scm
View file

@ -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