From f393eeebe8cf6a31ecc2160658bee3d2c895a98b Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Mon, 22 Mar 2021 09:38:57 -0700 Subject: untabify Signed-off-by: Sean Whitton --- src/connection/ssh.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'src/connection/ssh.lisp') 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) -- cgit v1.2.3