tribes/guix-tribes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix Lego certificate key naming for edge setup

Browse Source
This commit is contained in:
Steffen Beyer
2026-04-01 12:35:28 +02:00
parent f8c126c938
commit a457a1b8cf
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tribes/services/lego.scm
+5 -4
View File
@@ -84,10 +84,11 @@
(string-append "DNS:" subject))) (string-append "DNS:" subject)))
(define (certificate-key-name certificate) (define (certificate-key-name certificate)
(string-replace-substring (string-map (lambda (chr)
(car (lego-certificate-configuration-subjects certificate)) (if (char=? chr #\*)
"*" #\_
"_")) chr))
(car (lego-certificate-configuration-subjects certificate))))
(define (lego-common-arguments certificate) (define (lego-common-arguments certificate)
(let ((listen-http (lego-certificate-configuration-listen-http certificate)) (let ((listen-http (lego-certificate-configuration-listen-http certificate))