 
 (defn- get-paths-from-paths-rollups
   "Get paths from a paths-rollups list."
-  [paths-rollups]
+  [rollup paths-rollups]
   (->> paths-rollups
+       (filter #(= (second %) rollup))
        (map first)))
 
 (defn- dry-mode-warn

                                        (:sort options))
                             (filter-obsolete-metrics mstore tpool tenant
                                                      rollups options)
                             (get-paths-from-paths-rollups)
                             (distinct)
                             (sort))]
      (newline)
      (dorun (map println obsolete-data)))

          obsolete-paths (->> futures
                              (process-futures)
                              (remove nil?)
                              (get-paths-from-paths-rollups rollup)
                              (sort))
          _ (clog/info (str "Found obsolete metrics on "
                            (count obsolete-paths) " paths"))
