 ;;     (assoc merged :error-paths (clojure.set/union (:error-paths total)
 ;;                                                   (:error-paths store)))))
 
-(defn- show-stats
-  "Show metric store stats."
+(defn- show-store-stats
+  "Show store stats."
   [title data-stats store-stats]
   (let [processed (:processed data-stats)
         data-errors (count (:error-paths data-stats))

    (println "  Processed:   " processed)
    (println "  Store errors:" (count (:error-paths store-stats)))
    (println "  Data errors: " data-errors)))

(defn- process
  "Process a Whisper database."

        (catch Exception e
          (wlog/unhandled-error e))
        (finally
          (show-stats mstore pstore)
          (shutdown mstore pstore))))
    (catch Exception e
      (wlog/unhandled-error e)))
  (wlog/exit 0))
