diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:47:58 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-02-24 10:47:58 -0700 |
| commit | e6e5d86704fff151da5a667102587cb369bd20b1 (patch) | |
| tree | 33046fcc7494a46380c05fcd6fc074143583488a | |
| parent | da3b1064c8ad1072d8950f8aad4e6c40d2825112 (diff) | |
| download | consfigurator-e6e5d86704fff151da5a667102587cb369bd20b1.tar.gz | |
use braces rather than parentheses with CL-INTERPOL
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
| -rw-r--r-- | src/connection/ssh.lisp | 2 | ||||
| -rw-r--r-- | src/connection/sudo.lisp | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/connection/ssh.lisp b/src/connection/ssh.lisp index 419bb62..d9b5f42 100644 --- a/src/connection/ssh.lisp +++ b/src/connection/ssh.lisp @@ -65,7 +65,7 @@ (defmethod connection-writefile ((c ssh-connection) path contents) (with-remote-temporary-file (temp) - (mrun :input contents (sshcmd c "cat" #?">$(temp)")) + (mrun :input contents (sshcmd c "cat" #?">${temp}")) (mrun "mv" temp path))) ;; rsync it straight to to its destination so rsync can do incremental updates diff --git a/src/connection/sudo.lisp b/src/connection/sudo.lisp index 972c20f..fabae71 100644 --- a/src/connection/sudo.lisp +++ b/src/connection/sudo.lisp @@ -115,7 +115,7 @@ (error "File ~S not readable" path)))) (defmethod connection-writefile ((c sudo-connection) path contents) - (connection-run c #?"cat >$(path)" contents)) + (connection-run c #?"cat >${path}" contents)) (defmethod connection-upload ((c sudo-connection) from to) (run (sudocmd c "cp" from to))) |