summaryrefslogtreecommitdiff
path: root/vkraus/services/guix-wot.scm
diff options
context:
space:
mode:
authorVivien <vivien@pruneau.lan>2021-10-29 17:51:24 +0200
committerVivien <vivien@pruneau.lan>2021-10-29 17:51:24 +0200
commite1e11cd2d2f8337b4c06866e89f39c07e575af15 (patch)
tree8785ca647c8bc820280a1a41baaea2eeac639162 /vkraus/services/guix-wot.scm
parentd87de0b58c6be0772c3f02bd53b067ee82533004 (diff)
system service: remove unused function
Diffstat (limited to 'vkraus/services/guix-wot.scm')
-rw-r--r--vkraus/services/guix-wot.scm24
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.