diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-07 19:38:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-22 20:43:09 +0000 |
| commit | 87734503a4a1761a4432b601352e5b02340a97f0 (patch) | |
| tree | 598989c555e21f2a103e24bb6c34798a1a9c3565 | |
| parent | 08acee2f98321d57c4faa3ba641a5543b74f10a4 (diff) | |
| download | guix-87734503a4a1761a4432b601352e5b02340a97f0.tar guix-87734503a4a1761a4432b601352e5b02340a97f0.tar.gz | |
substitute: Remove redundant let block from fetch.
* guix/scripts/substitute.scm (fetch): Remove redundant let block.
| -rwxr-xr-x | guix/scripts/substitute.scm | 23 |
1 files changed, 11 insertions, 12 deletions
diff --git a/guix/scripts/substitute.scm b/guix/scripts/substitute.scm index 323957910a..f01892776e 100755 --- a/guix/scripts/substitute.scm +++ b/guix/scripts/substitute.scm @@ -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))))) |