provide auth predicate

This commit is contained in:
jem 2021-03-12 18:23:38 +01:00
parent 31717823c4
commit d65c558cdc
2 changed files with 7 additions and 2 deletions

View file

@ -3,7 +3,7 @@
"src/test/cljc"
"src/test/cljs"]
:dependencies [[orchestra "2019.02.06-1"]
[expound "0.8.4"]]
[expound "0.8.9"]]
:builds {:test {:target :node-test
:output-to "target/node-tests.js"
:autorun true

View file

@ -10,8 +10,13 @@
(s/def ::mastodon md/mastodon-auth?)
(s/def ::twitter twd/twitter-auth?)
(s/def ::tumblr td/tumblr-auth?)
(def auth?
(s/keys :opt-un [::mastodon ::twitter ::tumblr]))
(s/def ::auth auth?)
(s/def ::transform trd/transformations?)
(s/def ::auth (s/keys :opt-un [::mastodon ::twitter ::tumblr]))
(def config?
(s/keys :req-un [::auth ::transform]))