Fix restic-server setup

1 files changed, 3 insertions, 3 deletions

diff --git a/tw/system.scm b/tw/system.scm
index 0b738038..f7ac429c 100644
--- a/tw/system.scm
+++ b/tw/system.scm
@@ -44,12 +44,12 @@
     ("pi3.twilken.net" . 51022)))
 
 (export server-wireguard-address)
-(define* (server-wireguard-address host-name #:optional (port ""))
+(define* (server-wireguard-address host-name #:optional port)
   (string-replace-substring
    (car   ; get the IPv4 address
     (wireguard-peer-allowed-ips
      (assoc-ref %wireguard-peers host-name)))
-   "/32" port))
+   "/32" (if port (format #f ":~a" port) "")))
 
 (define-public (server-base-services host-name)
   (cons*
@@ -69,7 +69,7 @@
    (service prometheus-node-exporter-service-type
      (prometheus-node-exporter-configuration
       (web-listen-address
-       (server-wireguard-address host-name ":9100"))))
+       (server-wireguard-address host-name 9100))))
 
    (simple-service 'disk-maintenance mcron-service-type
      (list #~(job "0 2 * * *" "guix gc -d 2w")