       (println "    Size:             " (str (:size archive))))))
 
 (defn- get-archive-by-rollup
-  "Get archive by rollup."
+  "Get an archive by a rollup."
   [archives rollup]
   (let [archive (filter #(= rollup (:seconds-per-point %)) archives)]
     (if (count archive)

  (wlog/exit 0))

(defn migrate
  "Do 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 validation."
  [source tenant cass-host es-url options]
  (process source tenant cass-host es-url options validate-path validate-points
           "Starting validation" "Validating"))

    nil))

(defn- get-from-to
  "Get and check FROM and TO time values."
  [options]
  (let [from (:from options)
        to (:to options)]
