MetzNet
/
metznet-channel
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

export metznet-vpn-service-type

master
noah metz 2023-12-02 17:32:38 -07:00
parent c0620e4f6e
commit f309f10b43
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
metznet/machines/vpn.scm
Unescape Escape View File

@ -8,7 +8,7 @@
#:use-module (gnu services vpn) #:use-module (gnu services vpn)
#:use-module (metznet system base-system) #:use-module (metznet system base-system)
#:export (vpn.metznet.ca vpn-services)) #:export (vpn.metznet.ca vpn-services metznet-vpn-service-type))
(define (metznet-vpn-etc dh-pem) (define (metznet-vpn-etc dh-pem)
`(("openvpn/dh2048.pem" ,dh-pem))) `(("openvpn/dh2048.pem" ,dh-pem)))
@ -16,7 +16,7 @@
(define new-dh-pem (define new-dh-pem
(computed-file "dh2048.pem" (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils)) (invoke #$(file-append openssl "/bin/openssl") "dhparam" "-out" #$output "2048"))))) (computed-file "dh2048.pem" (with-imported-modules '((guix build utils)) #~(begin (use-modules (guix build utils)) (invoke #$(file-append openssl "/bin/openssl") "dhparam" "-out" #$output "2048")))))
(define metznet-vpn-service-type (define-public metznet-vpn-service-type
(service-type (name 'metznet-vpn) (service-type (name 'metznet-vpn)
(description "") (description "")
(extensions (list (service-extension etc-service-type (extensions (list (service-extension etc-service-type