From 3abaf0c4407b1f0e53f945bdbb13b6a8209c44dd Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Wed, 22 Aug 2012 17:22:46 +0200
Subject: Add `close-connection'.

* guix/store.scm (close-connection): New procedure.
---
 guix/store.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'guix/store.scm')

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 @@ (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)))
-- 
cgit v1.2.3