mirror of git://git.savannah.gnu.org/guix.git
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.
This commit is contained in:
parent
07c1ccb1eb
commit
7dee475589
|
@ -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")))
|
||||
|
|
Loading…
Reference in New Issue