mirror of
https://github.com/dimitri/pgloader.git
synced 2026-05-04 10:31:02 +02:00
When given --summary, refrain from writing to the terminal, fixing #102.
This commit is contained in:
parent
1179f449dc
commit
68dc8e07b4
@ -2365,14 +2365,11 @@ load database
|
||||
|
||||
;; maybe duplicate the summary to a file
|
||||
(let* ((summary-stream (when summary-pathname
|
||||
(open summary-pathname
|
||||
:direction :output
|
||||
:if-exists :rename
|
||||
:if-does-not-exist :create)))
|
||||
(*report-stream* (apply
|
||||
#'make-broadcast-stream
|
||||
(remove-if #'null (list *terminal-io*
|
||||
summary-stream)))))
|
||||
(open summary-pathname
|
||||
:direction :output
|
||||
:if-exists :rename
|
||||
:if-does-not-exist :create)))
|
||||
(*report-stream* (or summary-stream *terminal-io*)))
|
||||
(unwind-protect
|
||||
;; run the commands
|
||||
(loop for func in funcs do (funcall func))
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user