summaryrefslogtreecommitdiff
path: root/guix/gnu-maintenance.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/gnu-maintenance.scm')
-rw-r--r--guix/gnu-maintenance.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index e1455ccb98..cd45702628 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -329,11 +329,11 @@ open (resp. close) FTP connections; this can be useful to reuse connections."
(let-values (((server directory) (ftp-server/directory project)))
(define conn (ftp-open server))
- (define (file->url file)
+ (define (file->url directory file)
(string-append "ftp://" server directory "/" file))
- (define (file->source file)
- (let ((url (file->url file)))
+ (define (file->source directory file)
+ (let ((url (file->url directory file)))
(upstream-source
(package project)
(version (tarball->version file))
@@ -362,7 +362,7 @@ open (resp. close) FTP connections; this can be useful to reuse connections."
(releases (filter-map (match-lambda
((file 'file . _)
(and (release-file? project file)
- (file->source file)))
+ (file->source directory file)))
(_ #f))
entries)))