04/06: Revert "gnu-maintenance: Do not crash on refresh when origin URI is a list."

[guix-commits]

janneke pushed a commit to branch hurd-team
in repository guix.

commit 0e8cc7c0866cb3584831514562ebc019650663ce
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Sat Sep 23 10:46:41 2023 +0200

    Revert "gnu-maintenance: Do not crash on refresh when origin URI is a list."
    
    This reverts commit fd09e7b053c7e5dd24e5fb1b3cb9b2cc95a8bf7c.
---
 guix/gnu-maintenance.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index bf324c7e16..0383e8d353 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -885,8 +885,7 @@ 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))
+                       ((? (cut string-prefix? "mirror://" <>) url)
                         ;; Retrieve the authoritative HTTP URL from a mirror.
                         (http-url? url))
                        ((? string? url) url)