Fix ensure-connection

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))

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