diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-07-12 22:26:24 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-07-12 22:26:24 +0200 |
| commit | 1f495e04c16836c825618af815d4b17f93a6193a (patch) | |
| tree | 11593f1c8aaa33f8477352106ff9d08dcc036bdb | |
| parent | 8e5e7299d190e10238e020e36f4b1c036f32d949 (diff) | |
| download | gnu-guix-1f495e04c16836c825618af815d4b17f93a6193a.tar gnu-guix-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.scm | 8 |
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 |