From fa0a34804104de51dce3580052531942629a083e Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 15 Jul 2021 18:04:07 -0700 Subject: SSH:HAS-USER-KEY: fix application of FILE:SECRET-UPLOADED Signed-off-by: Sean Whitton --- src/property/ssh.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/property/ssh.lisp') diff --git a/src/property/ssh.lisp b/src/property/ssh.lisp index 4f7a717..33d2088 100644 --- a/src/property/ssh.lisp +++ b/src/property/ssh.lisp @@ -40,7 +40,7 @@ `(eseqprops (file:exists-with-content ,(strcat (unix-namestring dest) ".pub") ,public-key) ,(if iden1 - `(file:secret-uploaded ,iden1 ,dest) + `(file:secret-uploaded ,iden1 ,dest ,dest) `(file:host-secret-uploaded ,dest)))) (defprop %update-known-hosts :posix -- cgit v1.2.3