seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2026-03-04 17:04:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: Remove (rosenthal utils serializers yaml) references.

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
modules/rosenthal/services/child-error.scm
View File

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

7
modules/rosenthal/services/mail.scm
View File

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

1
modules/rosenthal/services/monitoring.scm
View File

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

1
modules/rosenthal/services/web.scm
View File

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