public/backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

That was silly...passing ensure-connection a message.

Browse Source
This commit is contained in:
niten 2022-03-09 13:51:34 -08:00
parent 14410e68a4
commit b77d6a294a
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
backplane-dns.lisp
View File

@ -52,9 +52,8 @@
(defmethod backplane-server:handle-message ((message dns-request)) (defmethod backplane-server:handle-message ((message dns-request))
(handler-case (handler-case
(if-let ((store *dns-store*)) (if-let ((store (ensure-connection *dns-store*)))
(-> message (-> message
(backplane-dns-store:ensure-connection store)
(handle-dns-message store) (handle-dns-message store)
(handle-dns-response (msg-id message))) (handle-dns-response (msg-id message)))
(make-error :msg "dns store is not initialized" (make-error :msg "dns store is not initialized"

4
package.lisp
View File

@ -19,8 +19,8 @@
#:missing-domain #:missing-domain
#:invalid-ip #:invalid-ip
#:domain-name-missing #:domain-name-missing
#:error-msg) #:error-msg
#:ensure-connection)
(:export #:start-listener-with-env (:export #:start-listener-with-env
#:backplane-dns-listen #:backplane-dns-listen
#:parse-message #:parse-message