;;;; package.lisp

(defpackage #:backplane-dns
  (:use #:cl)

  (:import-from #:arrows
                #:->
                #:some->)
  (:import-from #:alexandria
                #:if-let)
  (:import-from #:backplane-server
                #:backplane-connect
                #:make-error
                #:make-success
                #:start-listening
                #:with-backplane)
  (:import-from #:backplane-dns-store
                #:invalid-sshfp
                #:missing-domain
                #:invalid-ip
                #:domain-name-missing
                #:error-msg)
  
  (:export      #:start-listener-with-env
                #:backplane-dns-listen
                #:parse-message
                #:handle-message
                #:unknown-dns-request
                #:request-change-ipv4
                #:request-change-ipv6
                #:request-change-sshfp
                #:*dns-store*))