store: Remove unused variable.

* guix/store.scm (export-paths): Remove unused variable 's'.
This commit is contained in:
Ludovic Courtès 2015-01-17 16:03:35 +01:00
parent 5b3d863f00
commit 1d50699354
1 changed files with 8 additions and 9 deletions

View File

@ -806,7 +806,6 @@ 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
(()
@ -814,7 +813,7 @@ PATHS---i.e., PATHS and all their dependencies."
((head tail ...)
(write-int 1 port)
(and (export-path server head port #:sign? sign?)
(loop tail)))))))
(loop tail))))))
(define* (register-path path
#:key (references '()) deriver prefix