From f411124321068b5510c4cabe5889b500c6a7de52 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Mon, 15 May 2017 00:31:14 +0200
Subject: [PATCH] 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 @@ 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