;;; SPDX-FileCopyrightText: 2025 Evgeny Pisemsky <mail@pisemsky.site>

;;;

;;; SPDX-License-Identifier: GPL-3.0-or-later

(define-module (cogd services unbound))

(use-modules (gnu services)

             (gnu services dns)

             (gnu services shepherd))

(export unbound-service-type/fixed)

(define unbound-shepherd-service

  (@@ (gnu services dns) unbound-shepherd-service))

(define (unbound-shepherd-service/fixed config)

  (let ((unfixed (unbound-shepherd-service config)))

    (list (shepherd-service

           (inherit (car unfixed))

           (provision '(unbound))))))

(define unbound-service-type/fixed

  (service-type

   (inherit unbound-service-type)

   (extensions (map (lambda (ext)

                      (if (eq? (service-extension-target ext)

                               shepherd-root-service-type)

                          (service-extension shepherd-root-service-type

                                             unbound-shepherd-service/fixed)

                          ext))

                    (service-type-extensions unbound-service-type)))))