Ugh, wrong argument order...make keyword args

This commit is contained in:
Niten 2020-11-11 12:55:57 -08:00
parent d3ac2bbc9b
commit 9041ade333
1 changed files with 15 additions and 14 deletions

View File

@ -184,7 +184,8 @@
:mechanism :sasl-plain) :mechanism :sasl-plain)
(funcall f backplane))) (funcall f backplane)))
(defun backplane-dns-listen (xmpp-host (defun backplane-dns-listen (&key
xmpp-host
xmpp-username xmpp-username
xmpp-password xmpp-password
db-host db-host
@ -202,11 +203,11 @@
(defun start-listener-with-env () (defun start-listener-with-env ()
(backplane-dns-listen (backplane-dns-listen
(getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME" "backplane.fudo.org") :xmpp-host (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME")
(getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME" "dns") :xmpp-username (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME")
(read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE")) :xmpp-password (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE"))
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_NAME" "pdns") :db-name (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_NAME")
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_USERNAME" "dns_backplane") :db-username (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_USERNAME")
(getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_HOSTNAME") :db-host (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_HOSTNAME")
(read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_PASSWORD_FILE")))) :db-password (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_DATABASE_PASSWORD_FILE"))))