From a457a1b8cf8a965b951b5412555fd81198a68e8c Mon Sep 17 00:00:00 2001 From: Steffen Beyer Date: Wed, 1 Apr 2026 12:35:28 +0200 Subject: [PATCH] Fix Lego certificate key naming for edge setup --- tribes/services/lego.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/tribes/services/lego.scm b/tribes/services/lego.scm index 47560a1..2484cad 100644 --- a/tribes/services/lego.scm +++ b/tribes/services/lego.scm @@ -84,10 +84,11 @@ (string-append "DNS:" subject))) (define (certificate-key-name certificate) - (string-replace-substring - (car (lego-certificate-configuration-subjects certificate)) - "*" - "_")) + (string-map (lambda (chr) + (if (char=? chr #\*) + #\_ + chr)) + (car (lego-certificate-configuration-subjects certificate)))) (define (lego-common-arguments certificate) (let ((listen-http (lego-certificate-configuration-listen-http certificate))