diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-11-22 14:35:28 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-11-22 14:35:28 +0100 |
| commit | 862d2479f686abaa4d1881ad6eafb689bec157e8 (patch) | |
| tree | 0c86f1e42cc5d4c33dbe95890ce42867fc0a7bf3 /guix/scripts/lint.scm | |
| parent | d6d33984df8df4f061eadaac1d71119c97c0db9f (diff) | |
| download | guix-patches-862d2479f686abaa4d1881ad6eafb689bec157e8.tar guix-patches-862d2479f686abaa4d1881ad6eafb689bec157e8.tar.gz | |
ftp-client: Default port for 'ftp-open' is now "ftp".
* guix/ftp-client.scm (ftp-open): Change default #:port to "ftp".
* guix/scripts/lint.scm (probe-uri): Remove 'port' parameter to
'ftp-open'.
Diffstat (limited to 'guix/scripts/lint.scm')
| -rw-r--r-- | guix/scripts/lint.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index a7618ee286..034f0f95ee 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -316,7 +316,7 @@ for connections to complete; when TIMEOUT is #f, wait as long as needed." ('ftp (catch #t (lambda () - (let ((conn (ftp-open (uri-host uri) 21 #:timeout timeout))) + (let ((conn (ftp-open (uri-host uri) #:timeout timeout))) (define response (dynamic-wind (const #f) |