From f411124321068b5510c4cabe5889b500c6a7de52 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Mon, 15 May 2017 00:31:14 +0200 Subject: 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 3fefa49607..9bf1cc893f 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -512,7 +512,7 @@ (define (file-sans-extension file) (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 -- cgit v1.2.3