GNU bug report logs - #28330
[PATCH 0/2] Boost 1.65.0.

Previous Next

Full log

Message #8 received at 28330 <at> debbugs.gnu.org (full text, mbox):

From: Marius Bakke <mbakke <at> fastmail.com>
To: 28330 <at> debbugs.gnu.org
Cc: Marius Bakke <mbakke <at> fastmail.com>
Subject: [PATCH 1/2] lint: Check file names of origin patches.
Date: Sat,  2 Sep 2017 15:09:46 +0200

* 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

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.