services: Remove (rosenthal utils serializers yaml) references.

This is a follow-up to commit 8782619822.

* modules/rosenthal/services/child-error.scm (home-wakapi-shepherd-service)
* modules/rosenthal/services/mail.scm (home-goimapnotify-shepherd): Use
yaml-file.
This commit is contained in:
Hilton Chain 2026-02-25 15:44:33 +08:00
parent 8782619822
commit 2615b2a32d
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
4 changed files with 6 additions and 11 deletions

View File

@ -5,8 +5,8 @@
;; Utilities
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (rosenthal utils file)
#:use-module (rosenthal utils predicates)
#:use-module (rosenthal utils serializers yaml)
;; Guix System
#:use-module (gnu system shadow)
;; Guix System - services
@ -274,16 +274,14 @@ headers. This can expose sensitive information in your logs.")
(file-like wakapi-bin)
"The wakapi package.")
(config
(yaml-config '())
gexp
"Association list of Wakapi configurations.")
(no-serialization))
(define home-wakapi-shepherd-service
(match-record-lambda <home-wakapi-configuration>
(wakapi config)
(let ((config-file (mixed-text-file
"wakapi.yaml"
#~(string-append #$@(yaml-serialize config) "\n"))))
(let ((config-file (yaml-file "wakapi.yaml" config)))
(list (shepherd-service
(documentation "Run wakapi.")
(provision '(wakapi))

View File

@ -7,7 +7,7 @@
;; Utilities
#:use-module (guix gexp)
#:use-module (guix records)
#:use-module (rosenthal utils serializers yaml)
#:use-module (rosenthal utils file)
;; Guix System - services
#:use-module (gnu services)
#:use-module (gnu services admin)
@ -91,7 +91,7 @@
(file-like goimapnotify)
"")
(config
yaml-config
gexp
"")
(wait
(integer 1)
@ -109,8 +109,7 @@
(define home-goimapnotify-shepherd
(match-record-lambda <home-goimapnotify-configuration>
(goimapnotify config wait shepherd-provision shepherd-requirement auto-start?)
(let ((config-file
(mixed-text-file "goimapnotify.yaml" (yaml-serialize config))))
(let ((config-file (yaml-file "goimapnotify.yaml" config)))
(list (shepherd-service
(provision shepherd-provision)
(requirement shepherd-requirement)

View File

@ -8,7 +8,6 @@
#:use-module (guix records)
#:use-module (rosenthal utils file)
#:use-module (rosenthal utils predicates)
#:use-module (rosenthal utils serializers yaml)
;; Guix System
#:use-module (gnu system shadow)
;; Guix System - services

View File

@ -8,7 +8,6 @@
#:use-module (guix records)
#:use-module (rosenthal utils file)
#:use-module (rosenthal utils predicates)
#:use-module (rosenthal utils serializers yaml)
;; Guix System
#:use-module (gnu system privilege)
#:use-module (gnu system shadow)