[PATCH 02/13] lint: Remove an unneeded clause in 'check-patch-file-names'.

[Mathieu Lirzin <mthl@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 290 bytes --]


* 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.
---
 guix/scripts/lint.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: 0002-lint-Remove-an-unneeded-clause-in-check-patch-file-n.patch --]
[-- Type: text/x-patch; name="0002-lint-Remove-an-unneeded-clause-in-check-patch-file-n.patch", Size: 1497 bytes --]

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index e2cc965..25f49a7 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))