     (let [pstore (pstore/elasticsearch-path-store es-url options)
           sort (get-sort-or-dummy-fn (:sort options))
           empty-paths (->> (tree-walker tenant paths pstore options
-                                        empty-paths-remover)
+                                        empty-paths-finder)
                            (sort))]
       (newline)
       (dorun (map println empty-paths)))

            (when (t-path-empty? tree-impl path)
              (log/debug (str "Path '" spath "' is empty"))
              (t-delete-path tree-impl path)
              (swap! removed-paths conj spath))
            (when (and (not @clog/print-log?) (seq path))
              (prog/tick)))))
      (tp-get-data [this]
        @removed-paths)
      (tp-show-stats [this]
        ))))


      (t-get-raw-tree [this]
        @tree))))

(defn- empty-paths-finder
  "Empty paths finder."
  [tree-impl pstore tpool tenant paths options]
  (let [empty-paths (atom [])]
    (reify TreeProcessor
      (tp-get-title [this]
        "Checking paths")
