From 4fc1db92aacf2af08bb078267aed2cb45f98b97b Mon Sep 17 00:00:00 2001
From: Timo Wilken
Date: Thu, 20 Apr 2023 23:42:18 +0200
Subject: Fix restic-server setup

---
 tw/system.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'tw/system.scm')

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")
-- 
cgit v1.2.3