Add `close-connection'.
* guix/store.scm (close-connection): New procedure.
This commit is contained in:
parent
800cdeef31
commit
3abaf0c440
|
@ -41,6 +41,7 @@
|
||||||
hash-algo
|
hash-algo
|
||||||
|
|
||||||
open-connection
|
open-connection
|
||||||
|
close-connection
|
||||||
set-build-options
|
set-build-options
|
||||||
valid-path?
|
valid-path?
|
||||||
add-text-to-store
|
add-text-to-store
|
||||||
|
@ -280,6 +281,10 @@
|
||||||
(process-stderr s)
|
(process-stderr s)
|
||||||
s))))))))
|
s))))))))
|
||||||
|
|
||||||
|
(define (close-connection server)
|
||||||
|
"Close the connection to SERVER."
|
||||||
|
(close (nix-server-socket server)))
|
||||||
|
|
||||||
(define current-build-output-port
|
(define current-build-output-port
|
||||||
;; The port where build output is sent.
|
;; The port where build output is sent.
|
||||||
(make-parameter (current-error-port)))
|
(make-parameter (current-error-port)))
|
||||||
|
|
Loading…
Reference in New Issue