diff options
| -rw-r--r-- | guix/gnu-maintenance.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 555fd9e8cd..7f7fafd569 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -677,7 +677,13 @@ also updated to the latest version, as explained in the doc of the \"rewrite-url\" procedure used." (let* ((current-version (package-version package)) (name (package-upstream-name package)) - (url (canonicalize-url directory base-url)) + (url (if (string-null? directory) + base-url + (string-append base-url directory + ;; Ensure URL ends with a trailing slash. + (if (string-suffix? "/" directory) + "" + "/")))) (url (if rewrite-url? (rewrite-url url current-version #:to-version version #:partial-version? partial-version?) |