services: Deprecate zerotier-service for zerotier-service-type.

* nongnu/services/vpn (zerotier-one-service-type): Rename to ...
(zerotier-service-type): ... this.  Set default-value.
(zerotier-one-service-type, zerotier-one-service): Deprecate procedures.

Signed-off-by: John Kehayias <john.kehayias@protonmail.com>
This commit is contained in:
James Kalyan 2025-01-26 14:38:58 -05:00 committed by John Kehayias
parent 079d6da868
commit e215ff3c31
No known key found for this signature in database
GPG Key ID: 499097AE5EA815D9

View File

@ -1,13 +1,16 @@
;;; SPDX-License-Identifier: GPL-3.0-or-later ;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; Copyright © 2020 Alexey Abramov <levenson@mmer.org> ;;; Copyright © 2020 Alexey Abramov <levenson@mmer.org>
;;; Copyright © 2025 James Kalyan <mjkalyan@proton.me>
(define-module (nongnu services vpn) (define-module (nongnu services vpn)
#:use-module (guix deprecation)
#:use-module (guix gexp) #:use-module (guix gexp)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (nongnu packages vpn) #:use-module (nongnu packages vpn)
#:export (zerotier-one-service)) #:export (zerotier-service-type
zerotier-one-service))
(define %zerotier-action-join (define %zerotier-action-join
(shepherd-action (shepherd-action
@ -47,12 +50,18 @@
(list (string-append #$zerotier "/sbin/zerotier-one")))) (list (string-append #$zerotier "/sbin/zerotier-one"))))
(stop #~(make-kill-destructor)))))) (stop #~(make-kill-destructor))))))
(define zerotier-one-service-type (define zerotier-service-type
(service-type (name 'zerotier-one) (service-type (name 'zerotier)
(description "ZeroTier One daemon.") (description "ZeroTier One daemon.")
(extensions (extensions
(list (service-extension shepherd-root-service-type (list (service-extension shepherd-root-service-type
zerotier-one-shepherd-service))))) zerotier-one-shepherd-service)))
(default-value '())))
(define* (zerotier-one-service #:key (config (list))) (define-deprecated/alias
zerotier-one-service-type
zerotier-service-type)
(define-deprecated (zerotier-one-service #:key (config '()))
zerotier-service-type
(service zerotier-one-service-type config)) (service zerotier-one-service-type config))