ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

services: vpn: Fix default tls-auth configuration.

Browse source 
* gnu/services/vpn.scm (serialize-tls-auth): Fix serialization error when
tls-auth is disabled.
This commit is contained in:
Julien Lepiller 2017-10-09 12:09:11 +02:00
parent 262a4d335a
commit 4b8b4418e6
No known key found for this signature in database
GPG key ID: 43111F4520086A0C
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
gnu/services/vpn.scm
View file

@ -108,10 +108,12 @@ (define (serialize-resolv-retry field-name value)
#f)) #f))
(define (serialize-tls-auth role location) (define (serialize-tls-auth role location)
(serialize-field 'tls-auth (if location
(string-append location " " (match role (serialize-field 'tls-auth
('server "0") (string-append location " " (match role
('client "1"))))) ('server "0")
('client "1"))))
#f))
(define (tls-auth? val) (define (tls-auth? val)
(or (eq? val #f) (or (eq? val #f)
(string? val))) (string? val)))