From b77d6a294acf877cf78047796f9ab5c7b120070e Mon Sep 17 00:00:00 2001
From: niten <niten@fudo.org>
Date: Wed, 9 Mar 2022 13:51:34 -0800
Subject: [PATCH] That was silly...passing ensure-connection a message.

---
 backplane-dns.lisp | 3 +--
 package.lisp       | 4 ++--
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/backplane-dns.lisp b/backplane-dns.lisp
index 88526e5..10c060c 100644
--- a/backplane-dns.lisp
+++ b/backplane-dns.lisp
@@ -52,9 +52,8 @@
 
 (defmethod backplane-server:handle-message ((message dns-request))
   (handler-case
-      (if-let ((store *dns-store*))
+      (if-let ((store (ensure-connection *dns-store*)))
         (-> message
-            (backplane-dns-store:ensure-connection store)
             (handle-dns-message store)
             (handle-dns-response (msg-id message)))
         (make-error :msg "dns store is not initialized"
diff --git a/package.lisp b/package.lisp
index dd73861..7a014f4 100644
--- a/package.lisp
+++ b/package.lisp
@@ -19,8 +19,8 @@
                 #:missing-domain
                 #:invalid-ip
                 #:domain-name-missing
-                #:error-msg)
-  
+                #:error-msg
+                #:ensure-connection)
   (:export      #:start-listener-with-env
                 #:backplane-dns-listen
                 #:parse-message