diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-16 15:57:48 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-05-17 12:52:26 -0700 |
commit | 76a3b04f1cd436804f101e5404dcf5a82c3639b0 (patch) | |
tree | 5525853f30dd04166c22d41fd156d9a7bd3fbe35 /src/connection.lisp | |
parent | 12f76adfaaa1754262e55cd7d08627b87fdc4e6a (diff) | |
download | consfigurator-76a3b04f1cd436804f101e5404dcf5a82c3639b0.tar.gz |
require debug level 4 for output for every RUN & MRUN
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 81d39d5..508f775 100644 --- a/src/connection.lisp +++ b/src/connection.lisp @@ -334,7 +334,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 4 "~&RUN ~A" cmd) (multiple-value-bind (err exit) (connection-run *connection* cmd input) (let ((out (readfile stdout))) @@ -357,7 +357,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 4 "~&MRUN ~A" cmd) (multiple-value-bind (out exit) (connection-run *connection* cmd input) (when inform (informat 1 "~& % ~A~%~{ ~A~%~}" cmd (lines out))) |