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

Ugh...just keyword args like normal?

This commit is contained in:
niten 2022-02-01 10:16:25 -08:00
parent 46dc5ec88a
commit 02a5db8875
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
backplane-dns.lisp
View File

@ -159,7 +159,7 @@
(let ((postmodern:*ignore-unknown-columns* t) (let ((postmodern:*ignore-unknown-columns* t)
(cl-postgres:*query-log* *standard-output*) (cl-postgres:*query-log* *standard-output*)
(*dns-store* (make-instance 'backplane-dns-store:postgres-dns-store))) (*dns-store* (make-instance 'backplane-dns-store:postgres-dns-store)))
(postmodern:with-connection (list db-name db-username db-password db-host `(port ,db-port) `(use-ssl ,db-use-ssl)) (postmodern:with-connection (list db-name db-username db-password db-host :port db-port :use-ssl db-use-ssl)
(with-backplane (backplane (backplane-connect xmpp-host xmpp-username xmpp-password)) (with-backplane (backplane (backplane-connect xmpp-host xmpp-username xmpp-password))
(start-listening backplane))))) (start-listening backplane)))))