wangliu-iscas/guix-mirror
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-09-01 02:44:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

gnupg: Fix gnupg arguments.

Browse Source 
Followup to a6094158aa.

* guix/gnupg.scm (gnupg-receive-keys): Unquote server argument and pass
programname as argv[0].

Change-Id: I74eb3b9f4be9ca843ef38843ebbca0256e9b6b26
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
Merges: #9555
This commit is contained in:
Dariqq
2026-06-26 17:56:47 +00:00
committed by Ludovic Courtès
parent 65d3e4981a
commit b2e6a4ac21
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
guix/gnupg.scm
+2 -2
View File
@@ -194,12 +194,12 @@ GnuPG's default/configured one. The key is added to KEYRING."
(mkdir-p (dirname keyring))
(call-with-output-file keyring (const #t))) ;create an empty keybox
(let* ((keyserver-flags (if server '("--keyserver" server) '()))
(let* ((keyserver-flags (if server `("--keyserver" ,server) '()))
(default-flags (list "--no-default-keyring"
"--keyring" keyring
"--recv-keys" fingerprint/key-id))
(gpg-flags (append keyserver-flags default-flags))
(pid (spawn (%gpg-command) gpg-flags)))
(pid (spawn (%gpg-command) (cons (%gpg-command) gpg-flags))))
(match (waitpid pid)
((_ . status)
(zero? status)))))