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

.

Browse source
This commit is contained in:
Tommi Reiman 2024-06-30 18:31:14 +03:00
parent aec024a943
commit e8c3035254
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
modules/reitit-core/src/reitit/impl.cljc
View file

@ -36,14 +36,12 @@
(defn -copy-meta [to from]
(letfn [(-with-meta [x m]
(try (with-meta x m)
(catch #?(:clj Exception, :cljs js/Error) _ x)))
(try (with-meta x m) (catch #?(:clj Exception, :cljs js/Error) _ x)))
(-copy [l p m]
(reduce-kv
(fn [l k v]
(let [p' (conj p k)
m' (when (empty? (meta v))
(meta (get-in from p')))]
m' (when (empty? (meta v)) (meta (get-in from p')))]
(cond
m' (update-in l p' -with-meta m')
(and (map? v) (not (record? v)) (seq v)) (-copy l p' v)