Browse Source

Minor fixes

master
Niten 1 year ago
parent
commit
e9f8f8e7cd
  1. 4
      backplane-dns.asd
  2. 27
      package.lisp
  3. 28
      store-package.lisp

4
backplane-dns.asd

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

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

@ -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))
Loading…
Cancel
Save