diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-04-12 14:39:43 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-04-12 14:39:43 +0200 |
| commit | 857ecb3df5850f50923ce7f7410f05f3fcc3e41f (patch) | |
| tree | f1f5675def8af9c8b162ba5dfd6de137a5f2aa37 /guix/packages.scm | |
| parent | 87bf526b96fa5470a49ab131d61b84e2543c651c (diff) | |
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.
Diffstat (limited to 'guix/packages.scm')
| -rw-r--r-- | guix/packages.scm | 3 |
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. |