diff options
| author | Maxim Cournoyer <maxim@guixotic.coop> | 2026-05-15 15:50:41 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim@guixotic.coop> | 2026-05-15 22:06:22 +0900 |
| commit | 6989890f65c7b82a1315f021ca68ddf09adb061a (patch) | |
| tree | e360744527d22124b9f4932d11b24085293545f9 /gnu/home | |
| parent | d4699fc3946a92b9fbab84d907f4fa5f6a1e9f00 (diff) | |
home: gnupg: Remove extraneous lambda wrapper.
* gnu/home/services/gnupg.scm (home-gpg-agent-shepherd-services): Call
constructor directly.
Change-Id: I37e3c960f435a3e39ac0deaa78cf64a310b1d32d
Diffstat (limited to 'gnu/home')
| -rw-r--r-- | gnu/home/services/gnupg.scm | 22 |
1 files changed, 10 insertions, 12 deletions
diff --git a/gnu/home/services/gnupg.scm b/gnu/home/services/gnupg.scm index 67a7e267c60..319f84bb1dc 100644 --- a/gnu/home/services/gnupg.scm +++ b/gnu/home/services/gnupg.scm | |||
| @@ -125,18 +125,16 @@ entry will be expired even if it has been accessed recently.") | |||
| 125 | (requirement shepherd-requirement) | 125 | (requirement shepherd-requirement) |
| 126 | (modules '((shepherd support))) ;for '%user-runtime-dir' | 126 | (modules '((shepherd support))) ;for '%user-runtime-dir' |
| 127 | (start | 127 | (start |
| 128 | #~(lambda args | 128 | #~(make-systemd-constructor |
| 129 | ((make-systemd-constructor | 129 | (list #$(file-append gnupg "/bin/gpg-agent") |
| 130 | (list #$(file-append gnupg "/bin/gpg-agent") | 130 | "--supervised" "--enable-ssh-support") |
| 131 | "--supervised" "--enable-ssh-support") | 131 | (list #$(endpoint "ssh" "S.gpg-agent.ssh") |
| 132 | (list #$(endpoint "ssh" "S.gpg-agent.ssh") | 132 | #$(endpoint "browser" "S.gpg-agent.browser") |
| 133 | #$(endpoint "browser" "S.gpg-agent.browser") | 133 | #$(endpoint "extra" "S.gpg-agent.extra") |
| 134 | #$(endpoint "extra" "S.gpg-agent.extra") | 134 | ;; #$(endpoint "scdaemon" "S.scdaemon") |
| 135 | ;; #$(endpoint "scdaemon" "S.scdaemon") | 135 | #$(endpoint "std" "S.gpg-agent")) |
| 136 | #$(endpoint "std" "S.gpg-agent")) | 136 | ;; Inherit graphical session environment. |
| 137 | ;; Inherit graphical session environment. | 137 | #:environment-variables (environ))) |
| 138 | #:environment-variables (environ)) | ||
| 139 | args))) | ||
| 140 | (stop #~(make-systemd-destructor)) | 138 | (stop #~(make-systemd-destructor)) |
| 141 | (documentation "Start 'gpg-agent', the GnuPG passphrase | 139 | (documentation "Start 'gpg-agent', the GnuPG passphrase |
| 142 | agent, with support for handling OpenSSH material.")))) | 140 | agent, with support for handling OpenSSH material.")))) |