summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJames Kalyan <mjkalyan@proton.me>2025-01-26 14:38:58 -0500
committerJohn Kehayias <john.kehayias@protonmail.com>2025-01-26 14:38:58 -0500
commite215ff3c3121c53c80635fb9a077480123d65fba (patch)
tree747cf0c260b7f6f5ffa00ac71af2ab027c4dfa67
parent079d6da86805a50611724a87cf680be8b5665d39 (diff)
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>
-rw-r--r--nongnu/services/vpn.scm19
1 files changed, 14 insertions, 5 deletions
diff --git a/nongnu/services/vpn.scm b/nongnu/services/vpn.scm
index 71a15dc..bebc553 100644
--- a/nongnu/services/vpn.scm
+++ b/nongnu/services/vpn.scm
@@ -1,13 +1,16 @@
1;;; SPDX-License-Identifier: GPL-3.0-or-later 1;;; SPDX-License-Identifier: GPL-3.0-or-later
2;;; Copyright © 2020 Alexey Abramov <levenson@mmer.org> 2;;; Copyright © 2020 Alexey Abramov <levenson@mmer.org>
3;;; Copyright © 2025 James Kalyan <mjkalyan@proton.me>
3 4
4(define-module (nongnu services vpn) 5(define-module (nongnu services vpn)
6 #:use-module (guix deprecation)
5 #:use-module (guix gexp) 7 #:use-module (guix gexp)
6 #:use-module (gnu packages) 8 #:use-module (gnu packages)
7 #:use-module (gnu services) 9 #:use-module (gnu services)
8 #:use-module (gnu services shepherd) 10 #:use-module (gnu services shepherd)
9 #:use-module (nongnu packages vpn) 11 #:use-module (nongnu packages vpn)
10 #:export (zerotier-one-service)) 12 #:export (zerotier-service-type
13 zerotier-one-service))
11 14
12(define %zerotier-action-join 15(define %zerotier-action-join
13 (shepherd-action 16 (shepherd-action
@@ -47,12 +50,18 @@
47 (list (string-append #$zerotier "/sbin/zerotier-one")))) 50 (list (string-append #$zerotier "/sbin/zerotier-one"))))
48 (stop #~(make-kill-destructor)))))) 51 (stop #~(make-kill-destructor))))))
49 52
50(define zerotier-one-service-type 53(define zerotier-service-type
51 (service-type (name 'zerotier-one) 54 (service-type (name 'zerotier)
52 (description "ZeroTier One daemon.") 55 (description "ZeroTier One daemon.")
53 (extensions 56 (extensions
54 (list (service-extension shepherd-root-service-type 57 (list (service-extension shepherd-root-service-type
55 zerotier-one-shepherd-service))))) 58 zerotier-one-shepherd-service)))
59 (default-value '())))
56 60
57(define* (zerotier-one-service #:key (config (list))) 61(define-deprecated/alias
62 zerotier-one-service-type
63 zerotier-service-type)
64
65(define-deprecated (zerotier-one-service #:key (config '()))
66 zerotier-service-type
58 (service zerotier-one-service-type config)) 67 (service zerotier-one-service-type config))