guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

branch master updated: Revert "gnu-maintenance: Support URI list of mixe


From: guix-commits
Subject: branch master updated: Revert "gnu-maintenance: Support URI list of mixed mirrors, HTTP URLs."
Date: Mon, 11 Sep 2023 23:31:15 -0400

This is an automated email from the git hooks/post-receive script.

apteryx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new a9d5d1d9dd Revert "gnu-maintenance: Support URI list of mixed mirrors, 
HTTP URLs."
a9d5d1d9dd is described below

commit a9d5d1d9dd186ab21ee44ccf9b5c777e79f83c5b
Author: Maxim Cournoyer <maxim.cournoyer@gmail.com>
AuthorDate: Mon Sep 11 23:30:43 2023 -0400

    Revert "gnu-maintenance: Support URI list of mixed mirrors, HTTP URLs."
    
    This reverts commit a5b5df7f7fbbb98487b2e7a59941efee6492bc7f.  Pushed too
    early.
---
 guix/gnu-maintenance.scm | 29 +++++++++++------------------
 1 file changed, 11 insertions(+), 18 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 302243559d..5a84fcb117 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -975,24 +975,17 @@ updater."
       ((url-predicate http-url?) package)))
 
 (define* (import-html-updatable-release package #:key (version #f))
-  "Return the latest release of PACKAGE else #f.  Do that by crawling the HTML
-page of the directory containing its source tarball.  Optionally include a
-VERSION string to fetch a specific version."
-
-  (define (expand-uri uri)
-    (string->uri
-     (match uri
-       ((and (? string?) (? (cut string-prefix? "mirror://" <>) url))
-        ;; Retrieve the authoritative HTTP URL from a mirror.
-        (http-url? url))
-       ((? string? url)
-        url)
-       ((url _ ...)
-        ;; This case is for when the URI is a list of possibly mirror URLs as
-        ;; well as HTTP URLs.
-        (expand-uri url)))))
-
-  (let* ((uri (expand-uri (origin-uri (package-source package))))
+  "Return the latest release of PACKAGE.  Do that by crawling the HTML page of
+the directory containing its source tarball.  Optionally include a VERSION
+string to fetch a specific version."
+  (let* ((uri       (string->uri
+                     (match (origin-uri (package-source package))
+                       ((and (? string?)
+                             (? (cut string-prefix? "mirror://" <>) url))
+                        ;; Retrieve the authoritative HTTP URL from a mirror.
+                        (http-url? url))
+                       ((? string? url) url)
+                       ((url _ ...) url))))
          (custom    (assoc-ref (package-properties package)
                                'release-monitoring-url))
          (base      (or custom



reply via email to

[Prev in Thread] Current Thread [Next in Thread]