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

Minor fixes

This commit is contained in:
Niten 2020-12-03 21:58:57 -08:00
parent fdb04c90f1
commit e9f8f8e7cd
3 changed files with 30 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
backplane-dns.asd
View File

@ -24,7 +24,7 @@
:cl-ppcre
:ip-utils
:postmodern)
:components ((:file "package")
:components ((:file "store-package")
(:file "backplane-dns-store")))
(asdf:defsystem #:backplane-dns/test
@ -34,9 +34,9 @@
:backplane-dns
:ip-utils
:prove)
:defsystem-depends-on (:prove-asdf)
:components ((:module "test"
:serial t
:components ((:test-file "backplane-dns-test"))))
:defsystem-depends-on (:prove-asdf)
:perform (asdf:test-op (op c)
(uiop:symbol-call :prove '#:run '#:backplane-dns/test)))

27
package.lisp
View File

@ -30,30 +30,3 @@
#:request-change-ipv6
#:request-change-sshfp
#:*dns-store*))
(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)
(:export #:set-ipv4
#:set-ipv6
#:set-sshfp
#:postgres-dns-store
#:invalid-ip
#:invalid-sshfp
#:domain-name-missing
#:missing-domain
#:dns-store
#:sshfp-p
#:error-msg))

28
store-package.lisp Normal file
View File

@ -0,0 +1,28 @@
;;;; 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)
(:export #:postgres-dns-store
#:invalid-ip
#:invalid-sshfp
#:domain-name-missing
#:missing-domain
#:dns-store
#:sshfp-p
#:error-msg
#:set-ipv4
#:set-ipv6
#:set-sshfp))