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

[Mathieu Lirzin]

mthl pushed a commit to branch master
in repository guix.

commit 90ca91866821f387f50a14c356da7888193f3180
Author: Mathieu Lirzin <address@hidden>
Date:   Sun Jan 24 15:21:10 2016 +0100

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

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 <address@hidden>
 ;;; Copyright © 2014, 2015 Eric Bavier <address@hidden>
 ;;; Copyright © 2013, 2014, 2015, 2016 Ludovic Courtès <address@hidden>
-;;; Copyright © 2015 Mathieu Lirzin <address@hidden>
+;;; Copyright © 2015, 2016 Mathieu Lirzin <address@hidden>
 ;;;
 ;;; 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))