ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-11 13:49:23 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add `close-connection'.

Browse source 
* guix/store.scm (close-connection): New procedure.
This commit is contained in:
Ludovic Courtès 2012-08-22 17:22:46 +02:00
parent 800cdeef31
commit 3abaf0c440
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/store.scm
View file

@ -41,6 +41,7 @@ (define-module (guix store)
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 @@ (define* (open-connection #:optional (file %default-socket-path)
(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)))