 (defn- collect-path-info
   "Add a path to the paths info database."
   [path]
-  (let [path-name (:path path)
-        path-info {:leaf (:leaf path)}]
-    (swap! paths-info assoc path-name path-info)))
+  (when (:leaf path)
+    (swap! paths-info conj (:path path))))
 
 (defn- remove-obsolete-metrics-processor
   "Obsolete metrics removal processor."

                                            tpool)
            obsolete-paths (->> processed-data
                                (get-paths-from-paths-rollups (first rollups))
                                (filter #(:leaf (get @paths-info %)))
                                (sort))]
        (process-paths tenant obsolete-paths pstore options
                       remove-obsolete-paths-processor tpool)))
    (catch Exception e

  (tp-get-data [this])
  (tp-show-stats [this]))

(def paths-info (atom nil))

(defn- set-inspecting-on!
  "Set the inspecting flag on."
