services: rsync: Add 'configuration' action.

* gnu/services/rsync.scm (rsync-shepherd-service): Add 'actions' field.
This commit is contained in:
Ludovic Courtès 2023-04-18 21:32:11 +02:00
parent 0ac2ada05a
commit 70677d8822
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -1,6 +1,6 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com> ;;; Copyright © 2017 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2021 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2021, 2023 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -225,13 +225,15 @@ (define (rsync-shepherd-service config)
(pid-file (rsync-configuration-pid-file config)) (pid-file (rsync-configuration-pid-file config))
(port-number (rsync-configuration-port-number config)) (port-number (rsync-configuration-port-number config))
(user (rsync-configuration-user config)) (user (rsync-configuration-user config))
(group (rsync-configuration-group config))) (group (rsync-configuration-group config))
(config-file (rsync-config-file config)))
(list (shepherd-service (list (shepherd-service
(provision '(rsync)) (provision '(rsync))
(documentation "Run rsync daemon.") (documentation "Run rsync daemon.")
(actions (list (shepherd-configuration-action config-file)))
(start #~(make-forkexec-constructor (start #~(make-forkexec-constructor
(list (string-append #$rsync "/bin/rsync") (list (string-append #$rsync "/bin/rsync")
"--config" #$(rsync-config-file config) "--config" #$config-file
"--daemon") "--daemon")
#:pid-file #$pid-file #:pid-file #$pid-file
#:user #$user #:user #$user