services: wireguard: Use the parameterized wireguard package.

* gnu/services/vpn.scm (wireguard-activation): Use the "wg" binary from
the package given to <wireguard-configuration>.

Signed-off-by: 宋文武 <iyzsong@member.fsf.org>
This commit is contained in:
EuAndreh 2022-11-29 20:39:29 -03:00 committed by 宋文武
parent 898f9adc20
commit 8d6feb4b10
No known key found for this signature in database
GPG key ID: D415BF253B515976

View file

@ -833,7 +833,7 @@ (define (peer->config peer)
(define (wireguard-activation config)
(match-record config <wireguard-configuration>
(private-key)
(private-key wireguard)
#~(begin
(use-modules (guix build utils)
(ice-9 popen)
@ -842,7 +842,7 @@ (define (wireguard-activation config)
(unless (file-exists? #$private-key)
(let* ((pipe
(open-input-pipe (string-append
#$(file-append wireguard-tools "/bin/wg")
#$(file-append wireguard "/bin/wg")
" genkey")))
(key (read-line pipe)))
(call-with-output-file #$private-key