Public definitions ⇒ export list; remove zerotier-configuration

* Responding to podiki's feedback on #nonguix
This commit is contained in:
James Kalyan 2025-01-24 16:46:09 -07:00
parent ff35087247
commit 1df0990043
No known key found for this signature in database
GPG Key ID: E8E29AFCF23CD4E6

View File

@ -3,11 +3,14 @@
;;; Copyright © 2025 James Kalyan <mjkalyan@proton.me> ;;; 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-service-type
zerotier-one-service))
(define %zerotier-action-join (define %zerotier-action-join
(shepherd-action (shepherd-action
@ -47,20 +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-configuration '()) (define zerotier-service-type
(service-type (name 'zerotier)
(define-public zerotier-service-type
(service-type (name 'zerotier-one)
(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 zerotier-configuration))) (default-value '())))
(define-deprecated/public-alias (define-deprecated/alias
zerotier-one-service-type zerotier-one-service-type
zerotier-service-type) zerotier-service-type)
(define-deprecated/public (zerotier-one-service #:key (config zerotier-configuration)) (define-deprecated (zerotier-one-service #:key (config '()))
zerotier-service-type zerotier-service-type
(service zerotier-one-service-type config)) (service zerotier-one-service-type config))