bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 03:55:08 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: secret-service: Remove redundant ‘dump’ procedure.

Browse source 
* gnu/build/secret-service.scm (secret-service-receive-secrets)[dump]: Remove.
Use ‘dump-port’ from (guix build utils) instead.

Change-Id: I5a098a6f4f6629cf275862e9f10c9a2718bb27a1
This commit is contained in:
Ludovic Courtès 2025-09-12 16:33:58 +02:00
parent 9de6ed0a7e
commit 1567529b91
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 1 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
gnu/build/secret-service.scm
View file

@ -190,23 +190,6 @@ Return the list of files installed on success, and #f otherwise."
(close-port sock)
#f))))
;; TODO: Remove when (@ (guix build utils) dump-port) has a 'size'
;; parameter.
(define (dump in out size)
;; Copy SIZE bytes from IN to OUT.
(define buf-size 65536)
(define buf (make-bytevector buf-size))
(let loop ((left size))
(if (<= left 0)
0
(let ((read (get-bytevector-n! in buf 0 (min left buf-size))))
(if (eof-object? read)
left
(begin
(put-bytevector out buf 0 read)
(loop (- left read))))))))
(define (read-secrets port)
;; Read secret files from PORT and install them.
(match (false-if-exception (read port))
@ -224,7 +207,7 @@ Return the list of files installed on success, and #f otherwise."
(call-with-output-file file
(lambda (output)
(dump port output size)
(dump-port port output size)
(chmod file mode))))
files sizes modes)
(log "received ~a secret files~%" (length files))