keep symmetry only predicate for top level elem
This commit is contained in:
parent
cd2441af4b
commit
8f79814b38
1 changed files with 1 additions and 2 deletions
|
@ -22,11 +22,10 @@
|
||||||
|
|
||||||
(def config? (s/keys :req [::mastodon-config]
|
(def config? (s/keys :req [::mastodon-config]
|
||||||
:opt [::twitter ::tumblr ::rss]))
|
:opt [::twitter ::tumblr ::rss]))
|
||||||
(s/def ::config config?)
|
|
||||||
|
|
||||||
;this has to stay on top - only ns-keywords can be uses in spec
|
;this has to stay on top - only ns-keywords can be uses in spec
|
||||||
(defn-spec mastodon-config ::mastodon-config
|
(defn-spec mastodon-config ::mastodon-config
|
||||||
[config ::config]
|
[config config?]
|
||||||
(::mastodon-config config))
|
(::mastodon-config config))
|
||||||
|
|
||||||
(defn find-config []
|
(defn find-config []
|
||||||
|
|
Reference in a new issue