mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 05:26:34 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: dns: Minor cleanup of unbound service.

Browse source 
In #68757, v3 instead of v4 of the patchset was committed by accident.
This patch revives the (minor) changes made in the v4.

* gnu/service/dns.scm: Remove exports of no longer existing names.
(unbound-service-type): Fix at typo (unbound -> Unbound).
(unbound-shepherd-service): Run after user processes.
(unbound-account-service): Determine shell based on shadow package.

Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Sören Tempel 2025-01-13 07:12:43 +01:00 committed by Ludovic Courtès
parent 145b51aeb3
commit ac6aba1fd7
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 11 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
gnu/services/dns.scm
View file

@ -56,18 +56,14 @@ (define-module (gnu services dns)
dnsmasq-configuration
unbound-service-type
unbound-zone
unbound-server
unbound-configuration
unbound-configuration?
unbound-configuration-server
unbound-configuration-remote-control
unbound-configuration-forward-zone
unbound-configuration-stub-zone
unbound-configuration-auth-zone
unbound-configuration-view
unbound-configuration-python
unbound-configuration-dynlib))
unbound-server
unbound-server?
unbound-zone
unbound-zone?
unbound-remote
unbound-remote?))
;;;
;;; Knot DNS.
@ -1065,7 +1061,9 @@ (define (unbound-shepherd-service config)
(list (shepherd-service
(documentation "Unbound daemon.")
(provision '(unbound dns))
(requirement '(networking))
;; unbound may be bound to a particular IP address, hence
;; only start it after the networking service has started.
(requirement '(user-processes networking))
(actions (list (shepherd-configuration-action config-file)))
(start #~(make-forkexec-constructor
(list (string-append #$unbound "/sbin/unbound")
@ -1080,11 +1078,11 @@ (define unbound-account-service
(system? #t)
(comment "Unbound daemon user")
(home-directory "/var/empty")
(shell "/run/current-system/profile/sbin/nologin"))))
(shell (file-append shadow "/sbin/nologin")))))
(define unbound-service-type
(service-type (name 'unbound)
(description "Run the unbound DNS resolver.")
(description "Run the Unbound DNS resolver.")
(extensions
(list (service-extension account-service-type
(const unbound-account-service))