public
/
backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Log SQL queries

This commit is contained in:
Niten 2020-11-16 20:39:02 -08:00
parent 939aa16231
commit 6bafe58ec6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backplane-dns.lisp
View File

@ -187,7 +187,8 @@
db-name db-name
db-username db-username
db-password) 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) (postmodern:with-connection (list db-name db-username db-password db-host)
(let ((backplane (backplane-connect xmpp-host xmpp-username xmpp-password))) (let ((backplane (backplane-connect xmpp-host xmpp-username xmpp-password)))
(xmpp:receive-stanza-loop backplane))))) (xmpp:receive-stanza-loop backplane)))))