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

  (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"))

(def ^:const pbar-width 35)

(defn- calc-ttl
  "Calc a TTL value."
  [time retention]
  (- time (- (utils/now) retention)))

(defn- log-point
  "Log a point."
  [msg rollup period path time value ttl]
  (log/trace
   (format (str "%s: rollup: %s, period: %s, path: %s, time: %s, "
