diff options
Diffstat (limited to 'tw/system.scm')
-rw-r--r-- | tw/system.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/tw/system.scm b/tw/system.scm index 4e1c4077..8d81a2db 100644 --- a/tw/system.scm +++ b/tw/system.scm @@ -52,7 +52,8 @@ ("vin.twilken.net" . 22022) ("pi3.twilken.net" . 51022) ("lap.twilken.net" . 22) - ("frm.twilken.net" . 22))) + ("frm.twilken.net" . 22) + ("btl.twilken.net" . 23022))) (define (tw-openssh-service host-name) "Configure the SSH server for remote login." @@ -60,7 +61,8 @@ ;; access, extend `openssh-service-type'. (service openssh-service-type (openssh-configuration - (port-number (assoc-ref %ssh-ports host-name)) + (port-number (or (assoc-ref %ssh-ports host-name) + (error "No SSH port found for host" host-name))) (x11-forwarding? #t) (permit-root-login #f) (password-authentication? #f) @@ -85,7 +87,8 @@ (let ((ip (string-replace-substring ((if ipv6? cadr car) (wireguard-peer-allowed-ips - (assoc-ref %wireguard-peers host-name))) + (or (assoc-ref %wireguard-peers host-name) + (error "Unknown Wireguard spec for host" host-name)))) (if ipv6? "/128" "/32") ""))) (cond ((and port ipv6?) (format #f "[~a]:~a" ip port)) |