We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
2 parents 68571b7 + 1b6845b commit c5b8b21Copy full SHA for c5b8b21
src/malli/core.cljc
@@ -601,8 +601,15 @@
601
602
(defn -parent-children-transformer [parent children transformer method options]
603
(let [parent-transformer (-value-transformer transformer parent method options)
604
- child-transformers (into [] (keep #(-transformer % transformer method options)) children)
605
- child-transformer (when (seq child-transformers) (apply -comp (rseq child-transformers)))]
+ child-transformer
+ (reduce (fn [acc child]
606
+ (let [transformer (-transformer child transformer method options)]
607
+ (if acc
608
+ (if transformer
609
+ (-comp transformer acc)
610
+ acc)
611
+ transformer)))
612
+ nil children)]
613
(-intercepting parent-transformer child-transformer)))
614
615
(defn -map-transformer [ts]
0 commit comments