updated the lab-tool to use correct keys
This commit is contained in:
parent
62fabf835d
commit
f0a93f457e
2 changed files with 8 additions and 5 deletions
|
@ -24,7 +24,8 @@
|
|||
|
||||
(define (get-ssh-config machine-name)
|
||||
"Get SSH configuration for a machine"
|
||||
`((hostname . ,(symbol->string machine-name))
|
||||
(let ((hostname (symbol->string machine-name)))
|
||||
`((hostname . ,hostname)
|
||||
(user . "sma")
|
||||
(identity-file . "~/.ssh/id_ed25519_admin")
|
||||
(is-local . #f)))
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue