diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 17:44:15 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-24 17:44:23 -0700 |
| commit | 732257a6ad8592db2f36b39a1b103e82b6417f79 (patch) | |
| tree | d2058c6eb1e69ca2039d5dd96599b3024a13fcfb /src/connection.lisp | |
| parent | 8d7b7ad0af528ad5c0906992ac4ca87d0fa7a296 (diff) | |
| download | consfigurator-732257a6ad8592db2f36b39a1b103e82b6417f79.tar.gz | |
add some missing fresh lines at debug level 3
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/connection.lisp')
| -rw-r--r-- | src/connection.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/connection.lisp b/src/connection.lisp index 56f2985..fdcab8a 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -286,7 +286,7 @@ case return only the exit code." (%process-run-args (with-remote-temporary-file (stdout) (setq cmd (format nil "( ~A ) >~A" cmd stdout)) - (informat 3 "RUN ~A" cmd) + (informat 3 "~&RUN ~A" cmd) (multiple-value-bind (err exit) (connection-run *connection* cmd input) (let ((out (readfile stdout))) @@ -309,7 +309,7 @@ Some :POSIX properties which want to run a lot of commands and don't need to separate the streams might want to use this too, but usually it is best to start with RUN." (%process-run-args - (informat 3 "MRUN ~A" cmd) + (informat 3 "~&MRUN ~A" cmd) (multiple-value-bind (out exit) (connection-run *connection* cmd input) (when inform (informat 1 "~{ ~A~%~}" (lines out))) |