[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: gnu-maintenance: Improve check for disabled host names.
From: |
guix-commits |
Subject: |
02/02: gnu-maintenance: Improve check for disabled host names. |
Date: |
Tue, 22 Aug 2023 12:42:08 -0400 (EDT) |
apteryx pushed a commit to branch master
in repository guix.
commit c655231b72ac28b5a433069fcf86a835c9c83691
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Aug 21 16:20:54 2023 -0400
gnu-maintenance: Improve check for disabled host names.
Found while investigating <https://issues.guix.gnu.org/65304>.
* guix/gnu-maintenance.scm (html-updatable-package?): Tighten predicate.
Reviewed-by: Ludovic Courtès <ludo@gnu.org>
---
guix/gnu-maintenance.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 32712f7218..5c16a7617d 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -846,7 +846,11 @@ Optionally include a VERSION string to fetch a specific
version."
(let ((scheme (uri-scheme uri))
(host (uri-host uri)))
(and (memq scheme '(http https))
- (not (member host hosting-sites)))))))))
+ ;; HOST may contain prefixes,
+ ;; e.g. "profanity-im.github.io", hence the
+ ;; suffix-based test below.
+ (not (any (cut string-suffix? <> host)
+ hosting-sites)))))))))
(lambda (package)
(or (assoc-ref (package-properties package) 'release-monitoring-url)