               (sh "rm" "-rf" checkout))))
 
 (defn box-repo-add
-  [{:keys [repo gitdir branch sha proj path]}]
+  [{:keys [repo gitdir branch sha proj path verify]}]
+  (assert (contains? #{nil :ok} verify))
   (if-let [bdir (find-box)]
     (let [sha (str sha)
           pname (-> (str proj)

    (let [voom-meta (merge {:allow-snaps false, :freshen true} voom-meta)]
      (if (not (:freshen voom-meta))
        dep
        (let [groups (->> (newest-voom-ver-by-spec repo-dbs prj voom-meta)
                          (map #(assoc % :voom-ver (format-voom-ver %)))
                          (group-by :voom-ver))]
          (case (count groups)
            0 (do (println "No matching version found for:" prj
                           (pr-str voom-meta))
                  dep)
            1 (assoc dep 1 (key (first groups)))
            (do (print "\nMultiple bump resolutions for:"
                       prj (pr-str voom-meta))
                (print-repo-infos (map #(first (val %)) groups))


(declare newest-voom-ver-by-spec)

(def verify-newest? true)

(defn print-repo-infos
  [repo-infos]
  (->> repo-infos
