diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-21 16:20:54 -0400 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-22 12:38:50 -0400 |
| commit | c655231b72ac28b5a433069fcf86a835c9c83691 (patch) | |
| tree | 51e4193cbd8992682b01cf40186ecc4e247b92c7 | |
| parent | 13425768f7c393cda49302ba2e8705f14ae56f0d (diff) | |
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>
| -rw-r--r-- | guix/gnu-maintenance.scm | 6 |
1 files changed, 5 insertions, 1 deletions
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) |