Archived
1
0
Fork 0

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

View file

@ -806,7 +806,6 @@ PATHS---i.e., PATHS and all their dependencies."
sorted sorted
(filter (cut member <> paths) sorted)))) (filter (cut member <> paths) sorted))))
(let ((s (nix-server-socket server)))
(let loop ((paths ordered)) (let loop ((paths ordered))
(match paths (match paths
(() (()
@ -814,7 +813,7 @@ PATHS---i.e., PATHS and all their dependencies."
((head tail ...) ((head tail ...)
(write-int 1 port) (write-int 1 port)
(and (export-path server head port #:sign? sign?) (and (export-path server head port #:sign? sign?)
(loop tail))))))) (loop tail))))))
(define* (register-path path (define* (register-path path
#:key (references '()) deriver prefix #:key (references '()) deriver prefix