From 14410e68a4debc600bd6bb8ce3bf1624daefa1c2 Mon Sep 17 00:00:00 2001
From: niten <niten@fudo.org>
Date: Wed, 9 Mar 2022 13:42:13 -0800
Subject: [PATCH] Fix ensure-connection

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

diff --git a/backplane-dns-store.lisp b/backplane-dns-store.lisp
index 5ccee03..eda2df8 100644
--- a/backplane-dns-store.lisp
+++ b/backplane-dns-store.lisp
@@ -143,7 +143,7 @@
     (replace-records domain name "SSHFP" new-sshfps)))
 
 (defmethod ensure-connection ((store postgres-dns-store))
-  (let ((db postmodern:*database*))
+  (let ((conn postmodern:*database*))
     (when (not (connected-p conn))
       (reconnect conn))
     store))
diff --git a/store-package.lisp b/store-package.lisp
index c0295dc..ab4f0db 100644
--- a/store-package.lisp
+++ b/store-package.lisp
@@ -13,7 +13,9 @@
                 #:update-dao
                 #:insert-dao
                 #:delete-dao
-                #:with-transaction)
+                #:with-transaction
+                #:connected-p
+                #:reconnect)
   
   (:export      #:postgres-dns-store
                 #:invalid-ip