me/guix
Archived
1
0
Fork 0
Code Activity

substitute: Stop using call-with-cached-connection in fetch-narinfos.

Browse source 
Instead, just pass open-connection-for-uri/maybe to http-multiple-get. This
code should be functionaly similar to the previous code. The eventual aim of
this is to make the connection caching not mandatory in fetch-narinfos.

* guix/scripts/substitute.scm (fetch-narinfos): Remove use of
call-with-cached-connection.
This commit is contained in:
Christopher Baines 2021-01-07 19:44:56 +00:00
parent f50b501a74
commit 7b812f7c84
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 8 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
guix/scripts/substitute.scm
View file

@ -412,20 +412,14 @@ port to it, or, if connection failed, print a warning and return #f. Pass
;; on the X.509 PKI. We can do it because we authenticate
;; narinfos, which provides a much stronger guarantee.
(let* ((requests (map (cut narinfo-request url <>) paths))
(result (call-with-cached-connection uri
(lambda (port)
(if port
(begin
(update-progress!)
(http-multiple-get uri
handle-narinfo-response '()
requests
#:open-connection
open-connection-for-uri/cached
#:verify-certificate? #f
#:port port))
'()))
open-connection-for-uri/maybe)))
(result (begin
(update-progress!)
(http-multiple-get uri
handle-narinfo-response '()
requests
#:open-connection
open-connection-for-uri/maybe
#:verify-certificate? #f))))
(newline (current-error-port))
result))
((file #f)