Fix Wireguard host naming

1 files changed, 5 insertions, 5 deletions

diff --git a/tw/services/wireguard.scm b/tw/services/wireguard.scm
index 1906f70e..b2a34b1f 100644
--- a/tw/services/wireguard.scm
+++ b/tw/services/wireguard.scm
@@ -27,13 +27,13 @@
                  ("btl" "btl/kAgD+DVXsApNn53JCZdgZ9iJvVpFZVpa3Z+rrj4=" #f))))
 
     (map (match-lambda*
-           ((i (name public-key port))
-            (cons (string-append name ".twilken.net")
+           ((i (short-name public-key port))
+            (cons (string-append short-name ".twilken.net")
                   (wireguard-peer
-                   (name (string-append name ".wg"))
-                   (endpoint (and port (format #f "~a.twilken.net:~d" name port)))
+                   (name (string-append short-name ".wg"))
+                   (endpoint (and port (format #f "~a.twilken.net:~d" short-name port)))
                    (public-key public-key)
-                   (preshared-key (string-append "/etc/wireguard/" name ".psk"))
+                   (preshared-key (string-append "/etc/wireguard/" short-name ".psk"))
                    (allowed-ips (list (format #f "10.0.0.~d/32" (+ i 1))
                                       (format #f "fc00::~d/128" (+ i 1)))))))
            (args (error "Unknown peer spec" args)))