summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-07-12 22:26:24 +0200
committerLudovic Courtès <ludo@gnu.org>2013-07-12 22:26:24 +0200
commit1f495e04c16836c825618af815d4b17f93a6193a (patch)
tree11593f1c8aaa33f8477352106ff9d08dcc036bdb
parent8e5e7299d190e10238e020e36f4b1c036f32d949 (diff)
downloadpatches-1f495e04c16836c825618af815d4b17f93a6193a.tar
patches-1f495e04c16836c825618af815d4b17f93a6193a.tar.gz
gnu-maintenance: `latest-release' closes its connection.
* guix/gnu-maintenance.scm (latest-release): Close CONN before returning.
-rw-r--r--guix/gnu-maintenance.scm8
1 files changed, 6 insertions, 2 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index f34930a37b..178d26ef57 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -281,14 +281,18 @@ pairs. Example: (\"mit-scheme-9.0.1\" . \"/gnu/mit-scheme/stable.pkg/9.0.1\").
(release-file project file))
(_ #f))
entries)))
+ (ftp-close conn)
(and=> (reduce latest #f files)
(cut cons <> directory))))
((subdirs ...)
;; Assume that SUBDIRS correspond to versions, and jump into the
;; one with the highest version number.
(let ((target (reduce latest #f subdirs)))
- (and target
- (loop (string-append directory "/" target))))))))))
+ (if target
+ (loop (string-append directory "/" target))
+ (begin
+ (ftp-close conn)
+ #f)))))))))
(define %package-name-rx
;; Regexp for a package name, e.g., "foo-X.Y". Since TeXmacs uses