 (def ^:const pbar-width 35)
 
 (defn- calc-ttl
-  "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, "

  (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- create-pstore
  "Create a path store."
  [es-url options]
  (if-not (:disable-path-store options false)
    (try
