me
/
guix
Archived
1
0
Fork 0
Code

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>
master
Maxim Cournoyer 2023-08-21 16:20:54 -04:00
parent 13425768f7
commit c655231b72
No known key found for this signature in database
GPG Key ID: 1260E46482E63562
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
guix/gnu-maintenance.scm
View File

@ -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)