luciano/reitit
1
0
Fork 0
mirror of https://github.com/metosin/reitit.git synced 2025-12-18 00:41:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Remove generated names from Data-Specs

Browse source
This commit is contained in:
Tommi Reiman 2018-10-21 20:36:53 +03:00
parent cb14cf017a
commit 17c27eb732
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
modules/reitit-spec/src/reitit/coercion/spec.cljc
View file

@ -39,19 +39,19 @@
(into-spec [this name])) (into-spec [this name]))
(defn- ensure-name [?name] (defn- ensure-name [?name]
(or ?name (keyword "" (name (gensym "spec"))))) (or ?name (keyword "spec" (name (gensym "")))))
(extend-protocol IntoSpec (extend-protocol IntoSpec
#?(:clj clojure.lang.PersistentArrayMap #?(:clj clojure.lang.PersistentArrayMap
:cljs cljs.core.PersistentArrayMap) :cljs cljs.core.PersistentArrayMap)
(into-spec [this name] (into-spec [this name]
(ds/spec (ensure-name name) this)) (dissoc (ds/spec (ensure-name name) this) :name))
#?(:clj clojure.lang.PersistentHashMap #?(:clj clojure.lang.PersistentHashMap
:cljs cljs.core.PersistentHashMap) :cljs cljs.core.PersistentHashMap)
(into-spec [this name] (into-spec [this name]
(ds/spec (ensure-name name) this)) (dissoc (ds/spec (ensure-name name) this) :name))
Maybe Maybe
(into-spec [this name] (into-spec [this name]