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

Fix dynamism

Browse source
This commit is contained in:
Ben Sless 2024-08-25 19:19:26 +03:00
parent 61783e4c81
commit 7dfc0e5fca
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
modules/reitit-core/src/reitit/walk.clj
View file

@ -3,6 +3,8 @@
(defprotocol IKeywordize
(-keywordize [coll]))
(defn keywordize-keys [m] (-keywordize m))
(defn- keywordize-kv
[m k v]
(assoc! m (if (string? k) (keyword k) (-keywordize k)) (-keywordize v)))
@ -11,7 +13,7 @@
[m]
(persistent! (reduce-kv keywordize-kv (transient (empty m)) m)))
(def ^:private keywordize-xf (map -keywordize))
(def ^:private keywordize-xf (map keywordize-keys))
(defn- -keywordize-default
[coll]
@ -30,10 +32,10 @@
(extend type IKeywordize {:-keywordize -keywordize-map}))
(extend-protocol IKeywordize
nil
(-keywordize [_] nil)
Object
(-keywordize [x] x)
nil
(-keywordize [_] nil)
clojure.lang.MapEntry
(-keywordize [e] (clojure.lang.MapEntry/create
(-keywordize (.key e))
@ -46,5 +48,3 @@
(-keywordize [x] x)
clojure.lang.IRecord
(-keywordize [r] (reduce (fn [r x] (conj r (-keywordize x))) r r)))
(defn keywordize-keys [m] (-keywordize m))