aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-04-12 14:39:43 +0200
committerLudovic Courtès <ludo@gnu.org>2014-04-12 14:39:43 +0200
commit857ecb3df5850f50923ce7f7410f05f3fcc3e41f (patch)
treef1f5675def8af9c8b162ba5dfd6de137a5f2aa37
parent87bf526b96fa5470a49ab131d61b84e2543c651c (diff)
downloadguix-857ecb3df5850f50923ce7f7410f05f3fcc3e41f.tar
guix-857ecb3df5850f50923ce7f7410f05f3fcc3e41f.tar.gz
packages: Correctly handle patching for inputs with no extension.
Reported by Manolis Ragkousis <manolis837@gmail.com>. * guix/packages.scm (patch-and-repack)[numeric-extension?]: Handle FILE-NAME with no extension.
-rw-r--r--guix/packages.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/packages.scm b/guix/packages.scm
index 812d6bb991..b413e58b19 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -317,7 +317,8 @@ IMPORTED-MODULES specify modules to use/import for use by SNIPPET."
(define (numeric-extension? file-name)
;; Return true if FILE-NAME ends with digits.
- (string-every char-set:hex-digit (file-extension file-name)))
+ (and=> (file-extension file-name)
+ (cut string-every char-set:hex-digit <>)))
(define (tarxz-name file-name)
;; Return a '.tar.xz' file name based on FILE-NAME.