From a785103b6a53038e02f5fdc4ac7ccabb9df5c63c Mon Sep 17 00:00:00 2001 From: Ben Sless Date: Sun, 27 Mar 2022 15:55:29 +0300 Subject: [PATCH] Speed up strip-extra-keys-transformer reduce-kv is faster than reduce-ing over a map's keys --- src/malli/transform.cljc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/malli/transform.cljc b/src/malli/transform.cljc index 380a4ea8d..cdbaa3722 100644 --- a/src/malli/transform.cljc +++ b/src/malli/transform.cljc @@ -365,7 +365,7 @@ (let [transform {:compile (fn [schema _] (when (accept schema) (when-let [ks (some->> schema m/entries (map first) seq set)] - (fn [x] (reduce (fn [acc k] (if-not (ks k) (dissoc acc k) acc)) x (keys x))))))}] + (fn [x] (reduce-kv (fn [acc k _] (if-not (ks k) (dissoc acc k) acc)) x x)))))}] (transformer {:decoders {:map transform} :encoders {:map transform}}))))