diff options
| -rw-r--r-- | guix/gnu-maintenance.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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) |