mirror of
https://github.com/metosin/reitit.git
synced 2025-12-17 00:11:11 +00:00
reduce-kv
This commit is contained in:
parent
72dadb3c76
commit
ee67a746d4
1 changed files with 2 additions and 2 deletions
|
|
@ -23,8 +23,8 @@
|
|||
|
||||
(defn -path-vals [m path-map]
|
||||
(letfn [(-path-vals [l p m]
|
||||
(reduce
|
||||
(fn [l [k v]]
|
||||
(reduce-kv
|
||||
(fn [l k v]
|
||||
(let [p' (conj p k)
|
||||
f (-match p' path-map)]
|
||||
(cond
|
||||
|
|
|
|||
Loading…
Reference in a new issue