aboutsummaryrefslogtreecommitdiff
path: root/gnu
diff options
context:
space:
mode:
authorJulien Lepiller <julien@lepiller.eu>2017-10-09 12:09:11 +0200
committerJulien Lepiller <julien@lepiller.eu>2017-10-10 22:06:08 +0200
commit4b8b4418e609b5e0bfb6efbc11ac28deaa437e80 (patch)
treeef2d3a3f0878d5e96718f3e2943aba5fac6c0a57 /gnu
parent262a4d335ac1fc1aa83cd4c611ed6d086d0193c5 (diff)
downloadguix-4b8b4418e609b5e0bfb6efbc11ac28deaa437e80.tar
guix-4b8b4418e609b5e0bfb6efbc11ac28deaa437e80.tar.gz
services: vpn: Fix default tls-auth configuration.
* gnu/services/vpn.scm (serialize-tls-auth): Fix serialization error when tls-auth is disabled.
Diffstat (limited to 'gnu')
-rw-r--r--gnu/services/vpn.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/gnu/services/vpn.scm b/gnu/services/vpn.scm
index 868a227fc0..cbb4a79a7b 100644
--- a/gnu/services/vpn.scm
+++ b/gnu/services/vpn.scm
@@ -108,10 +108,12 @@
#f))
(define (serialize-tls-auth role location)
- (serialize-field 'tls-auth
- (string-append location " " (match role
- ('server "0")
- ('client "1")))))
+ (if location
+ (serialize-field 'tls-auth
+ (string-append location " " (match role
+ ('server "0")
+ ('client "1"))))
+ #f))
(define (tls-auth? val)
(or (eq? val #f)
(string? val)))