[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: graft: Graft files in parallel.
From: |
Ludovic Courtès |
Subject: |
02/02: graft: Graft files in parallel. |
Date: |
Mon, 16 Nov 2015 13:23:23 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit 333c376c4586d16b215b994240ad4a5ddaa74d03
Author: Ludovic Courtès <address@hidden>
Date: Mon Nov 16 14:22:13 2015 +0100
graft: Graft files in parallel.
* guix/build/graft.scm (rewrite-directory): Use 'n-par-for-each' instead
of 'for-each'.
---
guix/build/graft.scm | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/guix/build/graft.scm b/guix/build/graft.scm
index d29e671..0a9cd32 100644
--- a/guix/build/graft.scm
+++ b/guix/build/graft.scm
@@ -21,6 +21,7 @@
#: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 @@ file name pairs."
(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