secret-service: Fix file port leak in 'secret-service-send-secrets'.

* gnu/build/secret-service.scm (secret-service-send-secrets): Use
'call-with-input-file' instead of 'open-input-file'.

diff --git a/gnu/build/secret-service.scm b/gnu/build/secret-service.scm
index 40c24ab..6697e6e 100644 (file)
--- 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)