me/guix
Archived
1
0
Fork 0
Code Activity

substitute: Remove redundant let block from fetch.

Browse source 
* guix/scripts/substitute.scm (fetch): Remove redundant let block.
This commit is contained in:
Christopher Baines 2021-01-07 19:38:44 +00:00
parent 08acee2f98
commit 87734503a4
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 11 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
guix/scripts/substitute.scm
View file

@ -192,18 +192,17 @@ connection (typically PORT) is kept open once data has been fetched from URI."
;; sudo tc qdisc add dev eth0 root netem delay 1500ms
;; and then cancel with:
;; sudo tc qdisc del dev eth0 root
(let ((port port))
(with-timeout (if timeout?
%fetch-timeout
0)
(begin
(warning (G_ "while fetching ~a: server is somewhat slow~%")
(uri->string uri))
(warning (G_ "try `--no-substitutes' if the problem persists~%")))
(http-fetch uri #:text? #f #:port port
#:keep-alive? keep-alive?
#:buffered? buffered?
#:verify-certificate? #f)))))
(with-timeout (if timeout?
%fetch-timeout
0)
(begin
(warning (G_ "while fetching ~a: server is somewhat slow~%")
(uri->string uri))
(warning (G_ "try `--no-substitutes' if the problem persists~%")))
(http-fetch uri #:text? #f #:port port
#:keep-alive? keep-alive?
#:buffered? buffered?
#:verify-certificate? #f))))
(else
(leave (G_ "unsupported substitute URI scheme: ~a~%")
(uri->string uri)))))