kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

gnu-maintenance: `latest-release' closes its connection.

Browse Source 
* guix/gnu-maintenance.scm (latest-release): Close CONN before
  returning.
This commit is contained in:
Ludovic Courtès 2013-07-12 22:26:24 +02:00
parent 8e5e7299d1
commit 1f495e04c1
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/gnu-maintenance.scm
View File

@ -281,14 +281,18 @@ pairs. Example: (\"mit-scheme-9.0.1\" . \"/gnu/mit-scheme/stable.pkg/9.0.1\").
(release-file project file)) (release-file project file))
(_ #f)) (_ #f))
entries))) entries)))
(ftp-close conn)
(and=> (reduce latest #f files) (and=> (reduce latest #f files)
(cut cons <> directory)))) (cut cons <> directory))))
((subdirs ...) ((subdirs ...)
;; Assume that SUBDIRS correspond to versions, and jump into the ;; Assume that SUBDIRS correspond to versions, and jump into the
;; one with the highest version number. ;; one with the highest version number.
(let ((target (reduce latest #f subdirs))) (let ((target (reduce latest #f subdirs)))
(and target (if target
(loop (string-append directory "/" target)))))))))) (loop (string-append directory "/" target))
(begin
(ftp-close conn)
#f)))))))))
(define %package-name-rx (define %package-name-rx
;; Regexp for a package name, e.g., "foo-X.Y". Since TeXmacs uses ;; Regexp for a package name, e.g., "foo-X.Y". Since TeXmacs uses