mirror of
https://codeberg.org/guix/guix.git
synced 2025-10-02 02:15:12 +00:00
services: keepalived: Add ‘shepherd-requirement’ field.
* gnu/services/networking.scm (<keepalived-configuration>)[shepherd-requirement]: New field. (keepalived-shepherd-service): Honor it. Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
parent
3512a3f318
commit
b05fc57386
1 changed files with 5 additions and 3 deletions
|
@ -3003,15 +3003,17 @@ of the IPFS peer-to-peer storage network.")))
|
|||
(keepalived keepalived-configuration-keepalived ;file-like
|
||||
(default keepalived))
|
||||
(config-file keepalived-configuration-config-file ;file-like
|
||||
(default #f)))
|
||||
(default #f))
|
||||
(shepherd-requirement keepalived-configuration-shepherd-requirement
|
||||
(default '(networking user-processes))))
|
||||
|
||||
(define (keepalived-shepherd-service config)
|
||||
(match-record config <keepalived-configuration>
|
||||
(keepalived config-file)
|
||||
(keepalived config-file shepherd-requirement)
|
||||
(list (shepherd-service
|
||||
(provision '(keepalived))
|
||||
(documentation "Run keepalived.")
|
||||
(requirement '(loopback))
|
||||
(requirement shepherd-requirement)
|
||||
(start #~(make-forkexec-constructor
|
||||
(list (string-append #$keepalived "/sbin/keepalived")
|
||||
"--dont-fork" "--log-console" "--log-detail"
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue