From e1e11cd2d2f8337b4c06866e89f39c07e575af15 Mon Sep 17 00:00:00 2001 From: Vivien Date: Fri, 29 Oct 2021 17:51:24 +0200 Subject: system service: remove unused function --- vkraus/services/guix-wot.scm | 24 ------------------------ 1 file changed, 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. -- cgit v1.2.3