From 333c376c4586d16b215b994240ad4a5ddaa74d03 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 16 Nov 2015 14:22:13 +0100
Subject: 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 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'guix/build/graft.scm')

diff --git a/guix/build/graft.scm b/guix/build/graft.scm
index d29e671c67..0a9cd3260c 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
-- 
cgit v1.2.3