Add a log entry before executing SQL blocks.

That seems helpful.
This commit is contained in:
Dimitri Fontaine 2017-06-02 22:34:25 +02:00
parent c6b634caad
commit 57a7353a94

View File

@ -66,6 +66,7 @@
:section ,section :section ,section
:use-result-as-read t :use-result-as-read t
:use-result-as-rows t) :use-result-as-rows t)
(log-message :notice "Executing SQL block for ~a" ,label)
(with-pgsql-transaction (:pgconn ,pgconn) (with-pgsql-transaction (:pgconn ,pgconn)
(loop for command in ',commands (loop for command in ',commands
do do