Merge pull request #146 from weissjeffm/flatten-false

fix map/flatten to stop ignoring the value false

Author: w01fe

src/plumbing/map.cljc

@@ -49,10 +49,9 @@
   [m]
   (when m
     ((fn flatten-helper [keyseq m]
-       (when m
-         (if (map? m)
-           (mapcat (fn [[k v]] (flatten-helper (conj keyseq k) v)) m)
-           [[keyseq m]])))
+       (if (map? m)
+         (mapcat (fn [[k v]] (flatten-helper (conj keyseq k) v)) m)
+         [[keyseq m]]))
      [] m)))
 
 (defn unflatten

test/plumbing/map_test.cljc

@@ -52,10 +52,10 @@
   (is (empty? (map/flatten {})))
   (is (= [[[] :foo]] (map/flatten :foo)))
   (is (= {[:a] 1
-          [:b :c] 2
-          [:b :d :e] 3
+          [:b :c] false
+          [:b :d :e] nil
           [:b :d :f] 4}
-         (into {} (map/flatten {:a 1 :b {:c 2 :d {:e 3 :f 4}}})))))
+         (into {} (map/flatten {:a 1 :b {:c false :d {:e nil :f 4}}})))))
 
 (deftest unflatten-test
   (is (= {} (map/unflatten nil)))