mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-11 13:49:23 -05:00
Add `close-connection'.
* guix/store.scm (close-connection): New procedure.
This commit is contained in:
parent
800cdeef31
commit
3abaf0c440
1 changed files with 5 additions and 0 deletions
|
@ -41,6 +41,7 @@ (define-module (guix store)
|
|||
hash-algo
|
||||
|
||||
open-connection
|
||||
close-connection
|
||||
set-build-options
|
||||
valid-path?
|
||||
add-text-to-store
|
||||
|
@ -280,6 +281,10 @@ (define* (open-connection #:optional (file %default-socket-path)
|
|||
(process-stderr s)
|
||||
s))))))))
|
||||
|
||||
(define (close-connection server)
|
||||
"Close the connection to SERVER."
|
||||
(close (nix-server-socket server)))
|
||||
|
||||
(define current-build-output-port
|
||||
;; The port where build output is sent.
|
||||
(make-parameter (current-error-port)))
|
||||
|
|
Loading…
Reference in a new issue