diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-05-15 00:31:14 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-05-15 23:55:10 +0200 |
| commit | f411124321068b5510c4cabe5889b500c6a7de52 (patch) | |
| tree | 344c6a85d2cd611dac18fcd42019e605ebdf9d3b /guix/utils.scm | |
| parent | 6d225e89dbd67a3365005c2e3f8d095ef01a29c3 (diff) | |
| download | gnu-guix-f411124321068b5510c4cabe5889b500c6a7de52.tar gnu-guix-f411124321068b5510c4cabe5889b500c6a7de52.tar.gz | |
utils: 'compressed-file?' matches ".lzma" files.
* guix/utils.scm (compressed-file?): Add "lzma" to the list.
Diffstat (limited to 'guix/utils.scm')
| -rw-r--r-- | guix/utils.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index 3fefa49607..9bf1cc893f 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 |