1
0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00

store: Export the %default-store-connection-buffer-size.

So it can be used elsewhere, for example where port->connection is used and
there's a need to setup buffering.

* guix/store.scm (%default-buffer-size): Rename to
%default-store-connection-buffer-size.
(connect-to-daemon, open-connection): Update accordingly.

Change-Id: Ieb932577304786e5dee891ad1652e03c388d4112
This commit is contained in:
Christopher Baines
2026-03-02 12:19:44 +00:00
parent 894349cec8
commit e6581cc5f9

View File

@@ -118,6 +118,8 @@
set-store-connection-cache
set-store-connection-cache!
%default-store-connection-buffer-size
connect-to-daemon
open-connection
port->connection
@@ -356,10 +358,11 @@ non-blocking."
(errno (system-error-errno args)))))
(loop rest)))))))))
(define %default-buffer-size 8192)
(define %default-store-connection-buffer-size 8192)
(define* (connect-to-daemon uri-or-filename #:key non-blocking?
(buffer-size %default-buffer-size))
(buffer-size
%default-store-connection-buffer-size))
"Connect to the daemon at URI-OR-FILENAME and return an input/output port.
If NON-BLOCKING?, use a non-blocking socket when using the file, unix or guix
URI schemes. Use BUFFER-SIZE defaulting to 8192.
@@ -406,7 +409,8 @@ the daemon. Use 'open-connection' for that."
(define* (open-connection #:optional (uri (%daemon-socket-uri))
#:key port (reserve-space? #t) cpu-affinity
non-blocking? built-in-builders
(buffer-size %default-buffer-size))
(buffer-size
%default-store-connection-buffer-size))
"Connect to the daemon at URI (a string), or, if PORT is not #f, use it as
the I/O port over which to communicate to a build daemon.