Skip to content
Snippets Groups Projects
Unverified Commit f4111243 authored by Ludovic Courtès's avatar Ludovic Courtès
Browse files

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

* guix/utils.scm (compressed-file?): Add "lzma" to the list.
parent 6d225e89
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
guix/utils.scm
+ 1
− 1
View file @ f4111243
...@@ -512,7 +512,7 @@ (define (file-sans-extension file) ...@@ -512,7 +512,7 @@ (define (file-sans-extension file)
(define (compressed-file? file) (define (compressed-file? file)
"Return true if FILE denotes a compressed file." "Return true if FILE denotes a compressed file."
(->bool (member (file-extension 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) (define (switch-symlinks link target)
"Atomically switch LINK, a symbolic link, to point to TARGET. Works "Atomically switch LINK, a symbolic link, to point to TARGET. Works
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment