From f0a93f457eded788ee95fbcedba5599baccabebd Mon Sep 17 00:00:00 2001
From: "Geir O. Jerstad" <geir@geokkjer.eu>
Date: Thu, 3 Jul 2025 23:09:43 +0200
Subject: [PATCH] updated the lab-tool to use correct keys

---
 packages/lab-tool/config/config.scm | 9 +++++----
 packages/lab-tool/utils/ssh.scm     | 4 +++-
 2 files changed, 8 insertions(+), 5 deletions(-)

diff --git a/packages/lab-tool/config/config.scm b/packages/lab-tool/config/config.scm
index 15a17b4..c117850 100644
--- a/packages/lab-tool/config/config.scm
+++ b/packages/lab-tool/config/config.scm
@@ -24,10 +24,11 @@
 
 (define (get-ssh-config machine-name)
   "Get SSH configuration for a machine"
-  `((hostname . ,(symbol->string machine-name))
-    (user . "sma")
-    (identity-file . "~/.ssh/id_ed25519_admin")
-    (is-local . #f)))
+  (let ((hostname (symbol->string machine-name)))
+    `((hostname . ,hostname)
+      (user . "sma")
+      (identity-file . "~/.ssh/id_ed25519_admin")
+      (is-local . #f)))
 
 (define (get-homelab-root)
   "Get home lab root directory"
diff --git a/packages/lab-tool/utils/ssh.scm b/packages/lab-tool/utils/ssh.scm
index 171f33d..1f9a56d 100644
--- a/packages/lab-tool/utils/ssh.scm
+++ b/packages/lab-tool/utils/ssh.scm
@@ -141,4 +141,6 @@
           #f))
       (begin
         (log-error "Cannot establish SSH connection to ~a" machine-name)
-        #f)))
+        #f))))
+
+;; Ensure file ends with a newline and all parentheses are closed