From ca48c56cba6c19f1f4a4f5dd5f97552d06a23b8c Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Wed, 11 Nov 2020 11:56:02 -0800
Subject: [PATCH] changed function names

---
 backplane-dns.lisp | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index 91bf473..2724a30 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -184,13 +184,13 @@
                :mechanism :sasl-plain)
     (funcall f backplane)))
 
-(defun listen (xmpp-host
-               xmpp-username
-               xmpp-password
-               db-host
-               db-name
-               db-username
-               db-password)
+(defun backplane-dns-listen (xmpp-host
+                             xmpp-username
+                             xmpp-password
+                             db-host
+                             db-name
+                             db-username
+                             db-password)
   (postmodern:with-connection (list db-name db-username db-password db-host :use-ssl t)
     (with-backplane xmpp-host xmpp-username xmpp-password
       (lambda (backplane)
@@ -201,7 +201,7 @@
     (read-line input)))
 
 (defun start-listener-with-env ()
-  (listen
+  (backplane-dns-listen
    (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_HOSTNAME" "backplane.fudo.org")
    (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_USERNAME" "dns")
    (read-file-line (getenv-or-fail "FUDO_DNS_BACKPLANE_XMPP_PASSWORD_FILE"))