services: vpn: Fix default tls-auth configuration.

* gnu/services/vpn.scm (serialize-tls-auth): Fix serialization error when tls-auth is disabled.
2017-10-09 12:09:11 +02:00 · 2017-10-09 12:09:11 +02:00 · 4b8b4418e6
parent 262a4d335a
commit 4b8b4418e6
1 changed files with 6 additions and 4 deletions
--- a/gnu/services/vpn.scm
+++ b/gnu/services/vpn.scm
@ -108,10 +108,12 @@
      #f))

 (define (serialize-tls-auth role location)
+  (if location
      (serialize-field 'tls-auth
                       (string-append location " " (match role
                                                     ('server "0")
-                                                 ('client "1")))))
+                                                     ('client "1"))))
+      #f))
 (define (tls-auth? val)
  (or (eq? val #f)
      (string? val)))