diff options
| -rw-r--r-- | guix/gnu-maintenance.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index f26d8c5fbc..1b628a772f 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -677,9 +677,7 @@ 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 (if (string-null? directory) - base-url - (string-append base-url directory "/"))) + (url (canonicalize-url directory base-url)) (url (if rewrite-url? (rewrite-url url current-version #:to-version version #:partial-version? partial-version?) |