me
/
guix
Archived
1
0
Fork 0
Code

ftp-client: Throw when log-in fails. 

* guix/ftp-client.scm (ftp-open): When '%ftp-listen' returns something
  different from 220, throw instead of writing an error message.
master
Ludovic Courtès 2015-05-20 12:00:04 +02:00
parent dbc31ab25c
commit 820a40327d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/ftp-client.scm
View File

@ -109,11 +109,8 @@ or a TCP port number), and return it."
(%ftp-login "anonymous" "guix@example.com" s) (%ftp-login "anonymous" "guix@example.com" s)
(%make-ftp-connection s ai)) (%make-ftp-connection s ai))
(begin (begin
(format (current-error-port)
"FTP to `~a' failed: ~A: ~A~%"
host code message)
(close s) (close s)
#f)))) (throw 'ftp-error s "log-in" code message)))))
(lambda args (lambda args
;; Connection failed, so try one of the other addresses. ;; Connection failed, so try one of the other addresses.