From 1b5b19c7c81a5a5398bda8edf3b9d43720613613 Mon Sep 17 00:00:00 2001
From: Nathan Marz <nathan@nathanmarz.com>
Date: Sat, 13 Aug 2016 09:23:23 -0400
Subject: [PATCH] fix accidental coercion to rich nav

---
 src/clj/com/rpl/specter/impl.cljc | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/clj/com/rpl/specter/impl.cljc b/src/clj/com/rpl/specter/impl.cljc
index eb3ba5d..b12a30b 100644
--- a/src/clj/com/rpl/specter/impl.cljc
+++ b/src/clj/com/rpl/specter/impl.cljc
@@ -400,6 +400,11 @@
 (defn comp-paths-internalized [path]
   (capture-params-internally (comp-paths* path)))
 
+(defn nav-type [n]
+  (if (satisfies? RichNavigator n)
+    :rich
+    :lean))
+
 (extend-protocol PathComposer
   nil
   (do-comp-paths [o]
@@ -416,7 +421,7 @@
                          (map capture-params-internally))
             combined (->> coerced
                           (map extract-nav)
-                          (partition-by type)
+                          (partition-by nav-type)
                           (map combine-same-types))
 
             result-nav (if (= 1 (count combined))