diff options
| -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. |