32 lines
835 B
Common Lisp
32 lines
835 B
Common Lisp
;;;; store-package.lisp
|
|
|
|
(defpackage #:backplane-dns-store
|
|
(:use #:cl)
|
|
|
|
(:import-from #:arrows #:->)
|
|
(:import-from #:alexandria #:if-let)
|
|
(:import-from #:ip-utils
|
|
#:ipv4-p
|
|
#:ipv6-p)
|
|
(:import-from #:postmodern
|
|
#:select-dao
|
|
#:update-dao
|
|
#:insert-dao
|
|
#:delete-dao
|
|
#:with-transaction
|
|
#:connected-p
|
|
#:reconnect)
|
|
|
|
(:export #:postgres-dns-store
|
|
#:invalid-ip
|
|
#:invalid-sshfp
|
|
#:domain-name-missing
|
|
#:missing-domain
|
|
#:dns-store
|
|
#:sshfp-p
|
|
#:error-msg
|
|
#:ensure-connection
|
|
#:set-ipv4
|
|
#:set-ipv6
|
|
#:set-sshfp))
|