                     (when (not= old-ver new-ver)
                       (str " -> " new-ver)))))
     (if (= old-deps desired-new-deps)
-      (println "All deps already up-to-date.")
+      (println "No versions bumped.")
       (let [replacement-map (into {} (map #(when (not= %1 %2) [%1 %2])
                                           old-deps desired-new-deps))
             tmp-file (File/createTempFile

                   [(str "--git-dir=" (.getPath gitdir))
                    (str "--work-tree=" (.getParent gitdir))])
        all-args (concat dir-args subcmd)
        {:keys [exit] :as rtn} (apply sh "git" all-args)]
    (when-not (ok-statuses exit)
      (throw (ex-info "git error" (assoc rtn :git all-args))))

(defn format-voom-ver
  [gver]
  (let [{:keys [ver ctime sha]} gver]
    (assert ver   (str "format-voom-ver requires :ver " (pr-str gver)))
    (assert ctime (str "format-voom-ver requires :ctime " (pr-str gver)))
    (assert sha   (str "format-voom-ver requires :sha " (pr-str gver)))
    (str (s/replace ver #"-SNAPSHOT" "")
         "-" (formatted-timestamp timestamp-fmt ctime) "-g" sha)))

