 ;; ----- CLI -----
 
 (def cli-options
-  [])
+  [["-f" "--force-update"]])
 
 (defn error-msg [errors]
   (str "The following errors occurred while parsing your command:\n\n"

  "
  For every read we have in DynamoDB, create a dismiss-at record in the corresponding entry.

  Usage:

  lein run -m oc.storage.util.import-inbox-dismiss
  "
  (:require [clojure.string :as s]
            [clojure.tools.cli :refer (parse-opts)]

                                             next-user-visibility)))
                        updated-entry (assoc e :user-visibility entry-user-vis)]
                    (println "Updating entry" (:uuid e) "with:" entry-user-vis)
                    (when (:force-update options)
                      (entry/update-entry-no-user! conn (:uuid e) updated-entry)))))))))
      (catch Exception e
        (println e)
        (exit 1 "Exception migrating read->dimiss-at.")))))