aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/build/secret-service.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/gnu/build/secret-service.scm b/gnu/build/secret-service.scm
index 40c24abf09..6697e6e1b0 100644
--- a/gnu/build/secret-service.scm
+++ b/gnu/build/secret-service.scm
@@ -69,8 +69,10 @@ local PORT. If connect fails, sleep 1s and retry RETRY times."
(version 0)
(files ,files-sizes-modes))))
(write secrets sock)
- (for-each (compose (cute dump-port <> sock)
- (cute open-input-file <>))
+ (for-each (lambda (file)
+ (call-with-input-file file
+ (lambda (input)
+ (dump-port input sock))))
files))))
(define (secret-service-receive-secrets port)