From 57a7353a94bcd0aefd5013e0747ea630cfd1f3da Mon Sep 17 00:00:00 2001
From: Dimitri Fontaine <dim@tapoueh.org>
Date: Fri, 2 Jun 2017 22:34:25 +0200
Subject: [PATCH] Add a log entry before executing SQL blocks.

That seems helpful.
---
 src/parsers/command-sql-block.lisp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/parsers/command-sql-block.lisp b/src/parsers/command-sql-block.lisp
index 6aaee6a..dba0a4b 100644
--- a/src/parsers/command-sql-block.lisp
+++ b/src/parsers/command-sql-block.lisp
@@ -66,6 +66,7 @@
                              :section ,section
                              :use-result-as-read t
                              :use-result-as-rows t)
+       (log-message :notice "Executing SQL block for ~a" ,label)
        (with-pgsql-transaction (:pgconn ,pgconn)
 	 (loop for command in ',commands
 	    do