mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-04 09:16:31 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

lint: check-patch-file-names: Use origin-actual-file-name.

Browse source 
This avoids crashes for the patch-file-names checker where a <origin> is used
for a patch, but without a value for the file-name field. This is currently
the case with the bash package.

* guix/lint.scm (check-patch-file-names): Change origin-file-name to
origin-actual-file-name.
This commit is contained in:
Christopher Baines 2020-06-12 22:26:47 +01:00
parent 29e4d3ea06
commit db6290af7c
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/lint.scm
View file

@ -679,7 +679,7 @@ (define (starts-with-package-name? file-name)
((? string? patch) ((? string? patch)
(starts-with-package-name? (basename patch))) (starts-with-package-name? (basename patch)))
((? origin? patch) ((? origin? patch)
(starts-with-package-name? (origin-file-name patch))) (starts-with-package-name? (origin-actual-file-name patch)))
(_ #f)) ;must be some other file-like object (_ #f)) ;must be some other file-like object
patches) patches)
'() '()