TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

utils: 'compressed-file?' matches ".lzma" files. 

* guix/utils.scm (compressed-file?): Add "lzma" to the list.
This commit is contained in:
Ludovic Courtès 2017-05-15 00:31:14 +02:00
parent 6d225e89db
commit f411124321
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guix/utils.scm
View File

@ -512,7 +512,7 @@ minor version numbers from version-string."
(define (compressed-file? file)
"Return true if FILE denotes a compressed file."
(->bool (member (file-extension file)
'("gz" "bz2" "xz" "lz" "tgz" "tbz2" "zip"))))
'("gz" "bz2" "xz" "lz" "lzma" "tgz" "tbz2" "zip"))))
(define (switch-symlinks link target)
"Atomically switch LINK, a symbolic link, to point to TARGET. Works