From 63102406f22412bb922de5549deb89d3594a38c0 Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Thu, 23 Mar 2017 11:47:32 +0200 Subject: guix: Compress and decompress xz archives in parallel. * guix/scripts/pack.scm (%compressors): Add flag '-T0' when calling "xz". * guix/utils.scm (decompressed-port, compressed-port, compressed-output-port): Same. --- guix/scripts/pack.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'guix/scripts') diff --git a/guix/scripts/pack.scm b/guix/scripts/pack.scm index 626c592e1c..9e91bc22ac 100644 --- a/guix/scripts/pack.scm +++ b/guix/scripts/pack.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2015, 2017 Ludovic Courtès +;;; Copyright © 2017 Efraim Flashner ;;; ;;; This file is part of GNU Guix. ;;; @@ -59,7 +60,7 @@ (define %compressors (compressor "lzip" "lz" #~(#+(file-append lzip "/bin/lzip") "-9")) (compressor "xz" "xz" - #~(#+(file-append xz "/bin/xz") "-e")) + #~(#+(file-append xz "/bin/xz") "-e -T0")) (compressor "bzip2" "bz2" #~(#+(file-append bzip2 "/bin/bzip2") "-9")))) -- cgit v1.2.3