[bug#28330] [PATCH 1/2] lint: Check file names of origin patches.

[Marius Bakke]

* guix/scripts/lint.scm (check-patch-file-names): Add case for when PATCH is
an <origin>.
---
 guix/scripts/lint.scm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm
index aceafc674..855b6262f 100644
--- a/guix/scripts/lint.scm
+++ b/guix/scripts/lint.scm
@@ -561,7 +561,13 @@ patch could not be found."
                       (and=> (string-contains (basename patch)
                                               (package-name package))
                              zero?))
-                     (_  #f))     ;must be an <origin> or something like that.
+                     ((? origin? patch)
+                      (if (string? (origin-file-name patch))
+                          (and=> (string-contains (origin-file-name patch)
+                                                  (package-name package))
+                                 zero?)
+                          #f))
+                     (_  #f))
                    (or (and=> (package-source package) origin-patches)
                        '()))
       (emit-warning
-- 
2.14.1