diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-07-12 22:59:33 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-07-12 22:59:33 +0200 |
| commit | e3ccdf9e963c1ec00f8dcf8cc859ab4615b978c4 (patch) | |
| tree | f149fa15037b8db4b0af8a537161333ec0443cd4 /guix/gnu-maintenance.scm | |
| parent | 1f495e04c16836c825618af815d4b17f93a6193a (diff) | |
| download | guix-patches-e3ccdf9e963c1ec00f8dcf8cc859ab4615b978c4.tar guix-patches-e3ccdf9e963c1ec00f8dcf8cc859ab4615b978c4.tar.gz | |
guix package: Reuse FTP connections for subsequent `latest-release' calls.
* guix/gnu-maintenance.scm (latest-release): Add `ftp-close' and
`ftp-open' keyword parameters.
* guix/scripts/package.scm (ftp-open*): New variable.
(check-package-freshness): Call `latest-release' with `ftp-open*' and
a no-op procedure.
Diffstat (limited to 'guix/gnu-maintenance.scm')
| -rw-r--r-- | guix/gnu-maintenance.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm index 178d26ef57..06baa1e97b 100644 --- a/guix/gnu-maintenance.scm +++ b/guix/gnu-maintenance.scm @@ -252,8 +252,10 @@ pairs. Example: (\"mit-scheme-9.0.1\" . \"/gnu/mit-scheme/stable.pkg/9.0.1\"). files) result)))))))) -(define (latest-release project) - "Return (\"FOO-X.Y\" . \"/bar/foo\") or #f." +(define* (latest-release project + #:key (ftp-open ftp-open) (ftp-close ftp-close)) + "Return (\"FOO-X.Y\" . \"/bar/foo\") or #f. Use FTP-OPEN and FTP-CLOSE to +open (resp. close) FTP connections; this can be useful to reuse connections." (define (latest a b) (if (version>? a b) a b)) |