From dccbcbcf21c95d5a0df4c1e42d2658087967f207 Mon Sep 17 00:00:00 2001 From: Vivien Date: Fri, 29 Oct 2021 17:53:22 +0200 Subject: SSH key synthesis: do not generate any key if an error happens. --- vkraus/services/guix-wot.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/vkraus/services/guix-wot.scm b/vkraus/services/guix-wot.scm index 34f158b..1bb15f1 100644 --- a/vkraus/services/guix-wot.scm +++ b/vkraus/services/guix-wot.scm @@ -67,9 +67,14 @@ ((user . fingerprint) `(,user ,(let ((port (mkstemp "/tmp/user-key-file-XXXXXXXX"))) - (invoke (run-with-store (open-connection) (package-file gnupg "/bin/gpg")) - "-o" (port-filename port) - "--export-ssh-key" fingerprint) + (with-exception-handler + (lambda (exn) + (format (current-error-port) "Warning: no SSH key exported for ~a: ~a.\n" user exn)) + (lambda () + (invoke (run-with-store (open-connection) (package-file gnupg "/bin/gpg")) + "-o" (port-filename port) + "--export-ssh-key" fingerprint)) + #:unwind? #t) (let ((interned (plain-file (format #f "user-key-file-~a" fingerprint) (get-string-all port)))) -- cgit v1.2.3