   (let [{:keys [options arguments summary]} (cli/parse-opts args cliopts)
         object (first arguments)
         filt (or (second arguments) ".*")
+        insens (:case-insensitive options)
         optsd (:diff-opts options)
         optsl (:log-opts options)
         show (:show-cmds options)]

      (usage summary 1)
      (let [revlist (get-revlist optsl show object)
            revpairs (get-revpairs revlist object)]
        (diffrevpairs object filt revpairs show)
        (shutdown-agents)))))

;; TODO make get-revpairs non-recursive?
;; TODO make diffrevpairs non-recursive?

(ns revdiff.core
  (:gen-class)
