     (dry-mode-warn options)
     (process-paths tenant paths es-url options
                    (fn [pstore options tenant paths]
+                     (swap! stats-processed inc)
                      (pstore/delete pstore tenant false false paths))
                    "Removing paths" true)
     (catch Exception e

(def ^:const default-jobs 1)

(def ^:const pbar-width 35)

(def list-metrics-str "Path: %s, rollup: %s, period: %s, time: %s, data: %s")
(def starting-str "==================== Starting ====================")

(defn- remove-metrics-path
  "List metrics for a path."
  [mstore options tenant rollup period path from to]
  (swap! stats-processed inc)
  (let [times (get-times mstore options tenant rollup period path from to)]
    (wlog/info (str "Removing metrics: "
                    "rollup: " rollup ", "
