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

              candidates-g (remove #(seq (sha-successors shabam (:sha %) shas-f))
                                   candidates-f)]
        {:keys [sha ctime]} candidates-g]
    {:sha sha
     :ctime ctime
     :version max-ver-e
     :path found-path


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

(def verify-newest? true)

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