From b8c33054032a49bf1d683be7113b86a8a147c4fd Mon Sep 17 00:00:00 2001 From: Hilton Chain Date: Thu, 25 Sep 2025 12:59:01 +0800 Subject: [PATCH] services: misskey: Use serializer from guile-yamlpp. --- modules/rosenthal/services/web.scm | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/modules/rosenthal/services/web.scm b/modules/rosenthal/services/web.scm index e22edd8..2f1106a 100644 --- a/modules/rosenthal/services/web.scm +++ b/modules/rosenthal/services/web.scm @@ -493,7 +493,7 @@ test its configuration file.")) (string "misskey/misskey:latest") "Misskey docker image to use.") (config - (yaml-config '()) + yaml-config "Alist of Misskey configuration, to be serialized to YAML format.") (data-directory (string "/var/lib/misskey") @@ -530,7 +530,15 @@ test its configuration file.")) (match-record-lambda (image config data-directory log-file ) (let ((config-file - (mixed-text-file "misskey.yaml" (yaml-serialize config)))) + (computed-file "misskey.yaml" + (with-extensions (list guile-yamlpp) + #~(begin + (use-modules (yamlpp)) + (call-with-output-file #$output + (lambda (port) + (let ((emitter (make-yaml-emitter))) + (yaml-emit! emitter '#$config) + (display (yaml-emitter-string emitter) port))))))))) (list (oci-container-configuration (user "misskey") (group "docker") @@ -558,7 +566,6 @@ test its configuration file.")) misskey-activation) (service-extension oci-container-service-type misskey-oci-containers))) - (default-value (misskey-configuration)) (description "Run Misskey, an interplanetary microblogging platform.")))