guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch staging updated: build/cargo-utils: Use all allocated threads to


From: guix-commits
Subject: branch staging updated: build/cargo-utils: Use all allocated threads to generate checksums.
Date: Wed, 15 Jul 2020 03:27:29 -0400

This is an automated email from the git hooks/post-receive script.

efraim pushed a commit to branch staging
in repository guix.

The following commit(s) were added to refs/heads/staging by this push:
     new 7dee475  build/cargo-utils: Use all allocated threads to generate 
checksums.
7dee475 is described below

commit 7dee475589868bf16b2ad2ef93511be8efb2c77a
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Wed Jul 15 10:26:35 2020 +0300

    build/cargo-utils: Use all allocated threads to generate checksums.
    
    * guix/build/cargo-utils.scm (generate-all-checksums): Use
    n-par-for-each instead of for-each when regenerating checksums for
    source crates.
---
 guix/build/cargo-utils.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/guix/build/cargo-utils.scm b/guix/build/cargo-utils.scm
index 5ac429a..7a3bb4b 100644
--- a/guix/build/cargo-utils.scm
+++ b/guix/build/cargo-utils.scm
@@ -2,7 +2,7 @@
 ;;; Copyright © 2016 David Craven <david@craven.ch>
 ;;; Copyright © 2017 Mathieu Othacehe <m.othacehe@gmail.com>
 ;;; Copyright © 2019 Ivan Petkov <ivanppetkov@gmail.com>
-;;; Copyright © 2019 Efraim Flashner <efraim@flashner.co.il>
+;;; Copyright © 2019, 2020 Efraim Flashner <efraim@flashner.co.il>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -23,6 +23,7 @@
   #:use-module (guix build utils)
   #:use-module (ice-9 popen)
   #:use-module (ice-9 rdelim)
+  #:use-module (ice-9 threads)
   #:export (generate-checksums
             generate-all-checksums))
 
@@ -70,7 +71,7 @@ the same directory."
         (display "}" port)))))
 
 (define (generate-all-checksums dir-name)
-  (for-each
+  (n-par-for-each (parallel-job-count)
     (lambda (filename)
       (let* ((dir (dirname filename))
              (checksum-file (string-append dir "/.cargo-checksum.json")))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]