me
/
guix
Archived
1
0
Fork 0
Code

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>
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
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gnu/services/vpn.scm
View File

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