[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/05: utils: 'compressed-file?' matches ".lzma" files.
From: |
Ludovic Courtès |
Subject: |
01/05: utils: 'compressed-file?' matches ".lzma" files. |
Date: |
Mon, 15 May 2017 18:03:44 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit f411124321068b5510c4cabe5889b500c6a7de52
Author: Ludovic Courtès <address@hidden>
Date: Mon May 15 00:31:14 2017 +0200
utils: 'compressed-file?' matches ".lzma" files.
* guix/utils.scm (compressed-file?): Add "lzma" to the list.
---
guix/utils.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/guix/utils.scm b/guix/utils.scm
index 3fefa49..9bf1cc8 100644
--- a/guix/utils.scm
+++ b/guix/utils.scm
@@ -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