ChangeLog - guix - Wojtek's customized Guix

about summary refs log tree commit diff

path: root/ChangeLog

blob: d6ea6943261fcae51c095ad39fe59140fc62de22 (about) (plain)

Normally a ChangeLog is generated at "make dist" time and available in
source tarballs.

If not, see the Git commit log at <http://git.sv.gnu.org/cgit/guix.git/>.

s lookup-compressor)) ;; Type of a compression tool. (define-record-type <compressor> (compressor name extension command) compressor? (name compressor-name) ;string (e.g., "gzip") (extension compressor-extension) ;string (e.g., ".lz") (command compressor-command)) ;gexp (e.g., #~(list "/gnu/store/…/gzip" ; "-9n" )) (define %compressors ;; Available compression tools. (list (compressor "gzip" ".gz" #~(list #+(file-append gzip "/bin/gzip") "-9n")) (compressor "lzip" ".lz" #~(list #+(file-append lzip "/bin/lzip") "-9")) (compressor "xz" ".xz" #~(append (list #+(file-append xz "/bin/xz") "-e") (%xz-parallel-args))) (compressor "bzip2" ".bz2" #~(list #+(file-append bzip2 "/bin/bzip2") "-9")) (compressor "zstd" ".zst" ;; The default level 3 compresses better than gzip in a ;; fraction of the time, while the highest level 19 ;; (de)compresses more slowly and worse than xz. #~(list #+(file-append zstd "/bin/zstd") "-3" (format #f "--threads=~a" (parallel-job-count)))) (compressor "none" "" #f))) (define (lookup-compressor name) "Return the compressor object called NAME. Error out if it could not be found." (or (find (match-lambda (($ <compressor> name*) (string=? name* name))) %compressors) (leave (G_ "~a: compressor not found~%") name)))