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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
backplane-dns.asd
View File

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

2
backplane-dns.lisp
View File

@ -188,7 +188,7 @@
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*)) (cl-postgres:*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)))))