diff options
| -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) |