diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2012-08-22 17:22:46 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2012-08-22 17:25:47 +0200 |
| commit | 3abaf0c4407b1f0e53f945bdbb13b6a8209c44dd (patch) | |
| tree | 5e035bf8ab64c49b460d8b340b22730a0b4f36b7 /guix/store.scm | |
| parent | 800cdeef31ccc92c9f54b62ec5276985d7b157b1 (diff) | |
| download | gnu-guix-3abaf0c4407b1f0e53f945bdbb13b6a8209c44dd.tar gnu-guix-3abaf0c4407b1f0e53f945bdbb13b6a8209c44dd.tar.gz | |
Add `close-connection'.
* guix/store.scm (close-connection): New procedure.
Diffstat (limited to 'guix/store.scm')
| -rw-r--r-- | guix/store.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix/store.scm b/guix/store.scm index bd7bb59f89..1e6119ed18 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -41,6 +41,7 @@ hash-algo open-connection + close-connection set-build-options valid-path? add-text-to-store @@ -280,6 +281,10 @@ (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))) |