diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-10-16 22:21:02 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-10-19 23:21:49 +0200 |
| commit | b3ac341d4e681125c0c8b0776dfb269ddd3405f3 (patch) | |
| tree | 6ed6291f2e60decadbff080a176bc7e45cefe5c2 /guix/build/download.scm | |
| parent | 9b396c0cabb086746cbe4ec20d4ae0d79962d758 (diff) | |
| download | gnu-guix-b3ac341d4e681125c0c8b0776dfb269ddd3405f3.tar gnu-guix-b3ac341d4e681125c0c8b0776dfb269ddd3405f3.tar.gz | |
download: Remove old-Guile leftovers.
This is a followup to 36626c556ed75219bce196ac93d148f6b9af984c.
* guix/build/download.scm (http-fetch): Rename 'port-or-bv' to 'port'.
Assume (port? port) is always true, and remove other branch.
Diffstat (limited to 'guix/build/download.scm')
| -rw-r--r-- | guix/build/download.scm | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/guix/build/download.scm b/guix/build/download.scm index 9490f48055..e227ae598b 100644 --- a/guix/build/download.scm +++ b/guix/build/download.scm @@ -774,7 +774,7 @@ certificates; otherwise simply ignore them." #:timeout timeout #:verify-certificate? verify-certificate?)) - ((resp bv-or-port) + ((resp port) (http-get uri #:port connection #:decode-body? #f #:streaming? #t #:headers headers)) @@ -787,14 +787,11 @@ certificates; otherwise simply ignore them." (begin (call-with-output-file file (lambda (p) - (if (port? bv-or-port) - (begin - (dump-port* bv-or-port p - #:buffer-size %http-receive-buffer-size - #:reporter (progress-reporter/file - (uri-abbreviation uri) size)) - (newline)) - (put-bytevector p bv-or-port)))) + (dump-port* port p + #:buffer-size %http-receive-buffer-size + #:reporter (progress-reporter/file + (uri-abbreviation uri) size)) + (newline))) file)) ((301 ; moved permanently 302 ; found (redirection) |