substitute: Remove fetch-narinfos use open-connection-for-uri/maybe.
authorChristopher Baines <mail@cbaines.net>
Thu, 7 Jan 2021 21:00:23 +0000 (21:00 +0000)
committerChristopher Baines <mail@cbaines.net>
Mon, 22 Feb 2021 20:43:12 +0000 (20:43 +0000)
commit187e97096825d2bcceb144cead6eccc27385acd7
treed1889155acfd799085bb1b2ee4e0d6e7cafea1e0
parent8116cc66733134a8fb6f9117d4648288b83c8356
substitute: Remove fetch-narinfos use open-connection-for-uri/maybe.

At least by default.  Instead, make the open-connection procedure a parameter,
and make the default guix:open-connection-for-uri.  Do so similarly for
lookup-narinfos and lookup-narinfos/diverse which work towards calling
fetch-narinfos.

This means this code can be moved to a different module, without having
use/move the connection caching code.

* guix/scripts/substitute.scm (fetch-narinfos): Add #:open-connection
argument, and call http-multiple-get with it.
(lookup-narinfos) Add #:open-connection argument, and call fetch-narinfos with
it.
(lookup-narinfos/diverse): Add #:open-connection argument, and call
lookup-narinfos with it.
(process-query): Call lookup-narinfos/diverse with #:open-connection
open-connection-for-uri/maybe.
guix/scripts/substitute.scm