diff options
author | Vivien <vivien@pruneau.lan> | 2021-10-29 17:51:24 +0200 |
---|---|---|
committer | Vivien <vivien@pruneau.lan> | 2021-10-29 17:51:24 +0200 |
commit | e1e11cd2d2f8337b4c06866e89f39c07e575af15 (patch) | |
tree | 8785ca647c8bc820280a1a41baaea2eeac639162 | |
parent | d87de0b58c6be0772c3f02bd53b067ee82533004 (diff) |
system service: remove unused function
-rw-r--r-- | vkraus/services/guix-wot.scm | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/vkraus/services/guix-wot.scm b/vkraus/services/guix-wot.scm index bb2fa5d..34f158b 100644 --- a/vkraus/services/guix-wot.scm +++ b/vkraus/services/guix-wot.scm @@ -36,8 +36,6 @@ guix-system-wot-openssh guix-system-wot-service-type - - fetch-keys )) ;; This module defines a guix system service that converts GPG key @@ -50,28 +48,6 @@ (users guix-system-wot-configuration-users) (key-servers guix-system-wot-configuration-key-servers)) -(define (fetch-keys fingerprints key-servers) - (with-imported-modules '((guix build utils)) - (gexp->derivation - "gnupg-user-keys.gpg" - #~(begin - (use-modules (guix build utils)) - (setenv "GNUPGHOME" (string-append (getcwd) "/gnupg")) - (invoke #$(file-append gnupg "/bin/gpg") - "--import" "/var/cache/gnupg-user-keys.gpg") - (invoke #$(file-append gnupg "/bin/gpg") - #$@(apply append - (map - (lambda (key-server) - `("--keyserver" ,key-server)) - key-servers)) - "--recv-key" - #$@fingerprints) - (invoke - #$(file-append gnupg "/bin/gpg") - "--export" "-a" "-o" #$output - #$@fingerprints))))) - (define guix-system-wot-openssh ;; This service will export all approved authentication keys for the ;; openssh server to use. |