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,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