From 6bafe58ec6af6e3a529907e704bba4d151f3065a Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Mon, 16 Nov 2020 20:39:02 -0800
Subject: [PATCH] Log SQL queries

---
 backplane-dns.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index ed57ea5..91e0003 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -187,7 +187,8 @@
                                db-name
                                db-username
                                db-password)
-  (let ((postmodern:*ignore-unknown-columns* t))
+  (let ((postmodern:*ignore-unknown-columns* t)
+        (postmodern:*query-log* *standard-output*))
     (postmodern:with-connection (list db-name db-username db-password db-host)
       (let ((backplane (backplane-connect xmpp-host xmpp-username xmpp-password)))
         (xmpp:receive-stanza-loop backplane)))))