     nil))
 
 (defn- create-pstore
-  "Create path store."
+  "Create a path store."
   [es-url options]
   (if-not (:disable-path-store options false)
     (try

      (println "    Size:             " (str (:size archive))))))

(defn- get-archive-by-rollup
  "Get archive by rollup."
  [archives rollup]
  (let [archive (filter #(= rollup (:seconds-per-point %)) archives)]
    (if (count archive)

  (wlog/exit 0))

(defn migrate
  "Do the migration."
  [source tenant cass-host es-url options]
  (process source tenant cass-host es-url options migrate-path migrate-points
           "Starting migration" "Migrating"))

(defn validate
  "Do the validation."
  [source tenant cass-host es-url options]
  (process source tenant cass-host es-url options validate-path validate-points
           "Starting validation" "Validating"))
