summaryrefslogtreecommitdiff
path: root/guix/build/download.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-10-16 22:21:02 +0200
committerLudovic Courtès <ludo@gnu.org>2017-10-19 23:21:49 +0200
commitb3ac341d4e681125c0c8b0776dfb269ddd3405f3 (patch)
tree6ed6291f2e60decadbff080a176bc7e45cefe5c2 /guix/build/download.scm
parent9b396c0cabb086746cbe4ec20d4ae0d79962d758 (diff)
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.scm15
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)