apteryx pushed a commit to branch master
in repository guix.
commit fd09e7b053c7e5dd24e5fb1b3cb9b2cc95a8bf7c
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Tue Sep 5 14:14:02 2023 -0400
gnu-maintenance: Do not crash on refresh when origin URI is a list.
Updating the simh package would fail with:
ice-9/boot-9.scm:1685:16: In procedure raise-exception: In procedure
string-prefix?: Wrong type argument in position 2 (expecting
string): ("http://simh.trailing-edge.com/sources/simhv312-4.zip";
"http://simh.trailing-edge.com/sources/archive/simhv312-4.zip";)
This is because it expects a scalar value, but lists are allowed for URIs.
* guix/gnu-maintenance.scm (import-html-updatable-release): Check that URI
is
a string before checking if it has the mirror:// prefix.
---
guix/gnu-maintenance.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index ee6e0db747..41e0f4443d 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -980,7 +980,8 @@ 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))
- ((? (cut string-prefix? "mirror://" <>) url)
+ ((and (? string?)
+ (? (cut string-prefix? "mirror://" <>) url))
;; Retrieve the authoritative HTTP URL from a mirror.
(http-url? url))
((? string? url) url)
