diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-01-24 15:21:10 +0100 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-01-28 16:31:38 +0100 |
| commit | 90ca91866821f387f50a14c356da7888193f3180 (patch) | |
| tree | 2cdd438f6364d263d89580be6b73543db5347473 | |
| parent | 052d53df1f9a34fea43a29618b0bf165255bdadf (diff) | |
| download | patches-90ca91866821f387f50a14c356da7888193f3180.tar patches-90ca91866821f387f50a14c356da7888193f3180.tar.gz | |
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.
| -rw-r--r-- | 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 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)) |