ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 21:38:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: Correctly handle patching for inputs with no extension.

Browse source 
Reported by Manolis Ragkousis <manolis837@gmail.com>.

* guix/packages.scm (patch-and-repack)[numeric-extension?]: Handle
  FILE-NAME with no extension.
This commit is contained in:
Ludovic Courtès 2014-04-12 14:39:43 +02:00
parent 87bf526b96
commit 857ecb3df5
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
guix/packages.scm
View file

@ -317,7 +317,8 @@ (define original-file-name
(define (numeric-extension? file-name) (define (numeric-extension? file-name)
;; Return true if FILE-NAME ends with digits. ;; 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) (define (tarxz-name file-name)
;; Return a '.tar.xz' file name based on FILE-NAME. ;; Return a '.tar.xz' file name based on FILE-NAME.