summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-01-17 16:03:35 +0100
committerLudovic Courtès <ludo@gnu.org>2015-01-17 16:03:35 +0100
commit1d50699354141b6f2869fd3b7dc00cda25acacd3 (patch)
treee52cf2d5e19edee406e8aee9e502d0d0bb9d4727
parent5b3d863f0099257890f9714f81e24789f8e8e362 (diff)
store: Remove unused variable.
* guix/store.scm (export-paths): Remove unused variable 's'.
-rw-r--r--guix/store.scm17
1 files changed, 8 insertions, 9 deletions
diff --git a/guix/store.scm b/guix/store.scm
index 9e3074414e..6fd34bc643 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -806,15 +806,14 @@ PATHS---i.e., PATHS and all their dependencies."
sorted
(filter (cut member <> paths) sorted))))
- (let ((s (nix-server-socket server)))
- (let loop ((paths ordered))
- (match paths
- (()
- (write-int 0 port))
- ((head tail ...)
- (write-int 1 port)
- (and (export-path server head port #:sign? sign?)
- (loop tail)))))))
+ (let loop ((paths ordered))
+ (match paths
+ (()
+ (write-int 0 port))
+ ((head tail ...)
+ (write-int 1 port)
+ (and (export-path server head port #:sign? sign?)
+ (loop tail))))))
(define* (register-path path
#:key (references '()) deriver prefix