Fix Lego certificate key naming for edge setup

2026-04-01 12:35:28 +02:00
parent f8c126c938
commit a457a1b8cf
1 changed files with 5 additions and 4 deletions
--- 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))