diff --git a/common/app/common/data.cljc b/common/app/common/data.cljc index 26722cf75..088a36f07 100644 --- a/common/app/common/data.cljc +++ b/common/app/common/data.cljc @@ -146,8 +146,10 @@ (defn mapm "Map over the values of a map" - [mfn coll] - (into {} (map (fn [[key val]] [key (mfn key val)]) coll))) + ([mfn] + (map (fn [[key val]] [key (mfn key val)]))) + ([mfn coll] + (into {} (mapm mfn) coll))) (defn filterm "Filter values of a map that satisfy a predicate"