fix: find-in-text retun value (string -> hzip-loc)

clj-commons · Mar 9, 2024 · d5fea4b · d5fea4b
1 parent dc9b006
commit d5fea4b
Showing 1 changed file with 5 additions and 3 deletions.
diff --git a/src/cljc/hickory/select.cljc b/src/cljc/hickory/select.cljc
@@ -288,9 +288,11 @@
    selected."
   [re]
   (fn [hzip-loc]
-    (some #(re-find re %) (->> (zip/node hzip-loc)
-                               :content
-                               (filter string?)))))
+    (when (some #(re-find re %)
+                (->> (zip/node hzip-loc)
+                     :content
+                     (filter string?)))
+      hzip-loc)))
 
 (defn n-moves-until
   "This selector returns a selector function that selects its argument if