Browse Source

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

* guix/gnu-maintenance.scm (latest-release): Close CONN before
  returning.
wip-grafts
Ludovic Courtès 9 years ago
parent
commit
1f495e04c1
  1. 8
      guix/gnu-maintenance.scm

8
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

Loading…
Cancel
Save