lint: Remove an unneeded clause in 'check-patch-file-names'.
* 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:
parent
052d53df1f
commit
90ca918668
@ -2,7 +2,7 @@
|
||||
;;; Copyright © 2014 Cyril Roelandt <tipecaml@gmail.com>
|
||||
;;; Copyright © 2014, 2015 Eric Bavier <bavier@member.fsf.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.
|
||||
;;;
|
||||
@ -417,15 +417,12 @@ patch could not be found."
|
||||
(emit-warning package (condition-message c)
|
||||
'patch-file-names)))
|
||||
(let ((patches (and=> (package-source package) origin-patches))
|
||||
(name (package-name package))
|
||||
(full-name (package-full-name package)))
|
||||
(name (package-name package)))
|
||||
(when (and patches
|
||||
(any (match-lambda
|
||||
((? string? patch)
|
||||
(let ((file (basename patch)))
|
||||
(not (or (eq? (string-contains file name) 0)
|
||||
(eq? (string-contains file full-name)
|
||||
0)))))
|
||||
(not (eq? (string-contains file name) 0))))
|
||||
(_
|
||||
;; This must be an <origin> or something like that.
|
||||
#f))
|
||||
|
Loading…
Reference in New Issue
Block a user