keep symmetry only predicate for top level elem

This commit is contained in:
jem 2020-05-13 18:27:01 +02:00
parent cd2441af4b
commit 8f79814b38

View file

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