From 0bcd0e0faac3bb2a4543375946205d7ead28ed1e Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Mon, 16 Nov 2020 20:46:21 -0800
Subject: [PATCH] Correct query log package

---
 backplane-dns.asd  | 1 +
 backplane-dns.lisp | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/backplane-dns.asd b/backplane-dns.asd
index 121692f..6830640 100644
--- a/backplane-dns.asd
+++ b/backplane-dns.asd
@@ -9,6 +9,7 @@
   :depends-on (:alexandria
                :arrows
                :cl-json
+               :cl-postgres
                :cl-ppcre
                :cl+ssl
                :cl-xmpp
diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index 91e0003..a220805 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -188,7 +188,7 @@
                                db-username
                                db-password)
   (let ((postmodern:*ignore-unknown-columns* t)
-        (postmodern:*query-log* *standard-output*))
+        (cl-postgres:*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)))))