From 857ecb3df5850f50923ce7f7410f05f3fcc3e41f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sat, 12 Apr 2014 14:39:43 +0200 Subject: [PATCH] packages: Correctly handle patching for inputs with no extension. Reported by Manolis Ragkousis . * guix/packages.scm (patch-and-repack)[numeric-extension?]: Handle FILE-NAME with no extension. --- guix/packages.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/guix/packages.scm b/guix/packages.scm index 812d6bb9910396fa9bab003464e1f0e42c65128f..b413e58b19c19cdf8799844d033e2a29d1564c5b 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.