Correct query log package

This commit is contained in:
Niten 2020-11-16 20:46:21 -08:00
parent 6bafe58ec6
commit 0bcd0e0faa
2 changed files with 2 additions and 1 deletions

View File

@ -9,6 +9,7 @@
:depends-on (:alexandria
:arrows
:cl-json
:cl-postgres
:cl-ppcre
:cl+ssl
:cl-xmpp

View File

@ -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)))))