               (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))

              candidates-g (remove #(seq (sha-successors shabam (:sha %) shas-f))
                                   candidates-f)]
        {:keys [sha ctime]} candidates-g]
    {:verify (when verify-newest?
               (git {:gitdir gitdir} "checkout" (str sha))
               (let [check-sha (sha/mk (:sha (get-voom-version found-path :gitdir gitdir)))]
                 (if (= check-sha sha)
                   :ok
                   check-sha)))
     :sha sha
     :ctime ctime
     :version max-ver-e
     :path found-path
