diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 09:38:57 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-22 09:38:57 -0700 |
commit | f393eeebe8cf6a31ecc2160658bee3d2c895a98b (patch) | |
tree | b6c85fc026ffafc58f3c1479efadebb8ba699934 /src/connection/ssh.lisp | |
parent | 2063385338300dfb11cd1a681ba0ca9e7b1aaf37 (diff) | |
download | consfigurator-f393eeebe8cf6a31ecc2160658bee3d2c895a98b.tar.gz |
untabify
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection/ssh.lisp')
-rw-r--r-- | src/connection/ssh.lisp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/connection/ssh.lisp b/src/connection/ssh.lisp index 2098585..5b89e27 100644 --- a/src/connection/ssh.lisp +++ b/src/connection/ssh.lisp @@ -19,9 +19,9 @@ (named-readtables:in-readtable :consfigurator) (defmethod establish-connection ((type (eql :ssh)) remaining - &key - (hop (get-hostname)) - user) + &key + (hop (get-hostname)) + user) (declare (ignore remaining)) (informat 1 "~&Establishing SSH connection to ~A" hop) (mrun "ssh" "-fN" hop) @@ -44,8 +44,8 @@ (defmethod connection-shell-wrap ((connection ssh-connection) cmd) ;; wrap in 'sh -c' in case the login shell is not POSIX (format nil "ssh ~A ~A" - (ssh-host connection) - (escape-sh-token (format nil "sh -c ~A" (escape-sh-token cmd))))) + (ssh-host connection) + (escape-sh-token (format nil "sh -c ~A" (escape-sh-token cmd))))) ;; rsync it straight to to its destination so rsync can do incremental updates (defmethod connection-upload ((c ssh-connection) from to) |