Add `close-connection'.

* guix/store.scm (close-connection): New procedure.
2012-08-22 17:22:46 +02:00 · 2012-08-22 17:22:46 +02:00 · 3abaf0c440
parent 800cdeef31
commit 3abaf0c440
1 changed files with 5 additions and 0 deletions
--- 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)))