mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-19 14:07:01 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

lint: Remove an unneeded clause in 'check-patch-file-names'.

Browse source 
* guix/scripts/lint.scm (check-patch-file-names): Don't check if patches
start with the package full name since matching the package name (which
is a prefix of the full name) is sufficient.
This commit is contained in:
Mathieu Lirzin 2016-01-24 15:21:10 +01:00
parent 052d53df1f
commit 90ca918668
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
guix/scripts/lint.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com> ;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com>
;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.org>
;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2015 Mathieu Lirzin <mthl@openmailbox.org> ;;; Copyright © 2015, 2016 Mathieu Lirzin <mthl@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -417,15 +417,12 @@ (define (check-patch-file-names package)
(emit-warning package (condition-message c) (emit-warning package (condition-message c)
'patch-file-names))) 'patch-file-names)))
(let ((patches (and=> (package-source package) origin-patches)) (let ((patches (and=> (package-source package) origin-patches))
(name (package-name package)) (name (package-name package)))
(full-name (package-full-name package)))
(when (and patches (when (and patches
(any (match-lambda (any (match-lambda
((? string? patch) ((? string? patch)
(let ((file (basename patch))) (let ((file (basename patch)))
(not (or (eq? (string-contains file name) 0) (not (eq? (string-contains file name) 0))))
(eq? (string-contains file full-name)
0)))))
(_ (_
;; This must be an <origin> or something like that. ;; This must be an <origin> or something like that.
#f)) #f))