luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix accidental coercion to rich nav

Browse source
This commit is contained in:
Nathan Marz 2016-08-13 09:23:23 -04:00
parent bf3d8a826d
commit 1b5b19c7c8
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/clj/com/rpl/specter/impl.cljc
View file

@ -400,6 +400,11 @@
(defn comp-paths-internalized [path] (defn comp-paths-internalized [path]
(capture-params-internally (comp-paths* path))) (capture-params-internally (comp-paths* path)))
(defn nav-type [n]
(if (satisfies? RichNavigator n)
:rich
:lean))
(extend-protocol PathComposer (extend-protocol PathComposer
nil nil
(do-comp-paths [o] (do-comp-paths [o]
@ -416,7 +421,7 @@
(map capture-params-internally)) (map capture-params-internally))
combined (->> coerced combined (->> coerced
(map extract-nav) (map extract-nav)
(partition-by type) (partition-by nav-type)
(map combine-same-types)) (map combine-same-types))
result-nav (if (= 1 (count combined)) result-nav (if (= 1 (count combined))