summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorMathieu Lirzin <mthl@gnu.org>2016-01-24 15:21:10 +0100
committerMathieu Lirzin <mthl@gnu.org>2016-01-28 16:31:38 +0100
commit90ca91866821f387f50a14c356da7888193f3180 (patch)
tree2cdd438f6364d263d89580be6b73543db5347473 /guix
parent052d53df1f9a34fea43a29618b0bf165255bdadf (diff)
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.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/lint.scm9
1 files changed, 3 insertions, 6 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index e2cc965951..25f49a77af 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -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))