         sha-candidates (or sha-candidates
                            (do (fetch-all dirs)
                                (locate-sha dirs sha)))]
-    (prn "sha-candidates" sha-candidates)
     (mapcat (fn [c]
               (git {:gitdir c} "checkout" sha)
               (find-project groupId artifactId c))

(defn build-deps
  "Like 'lein deps', but also builds voom-versioned things as needed."
  [project & args]
  (try
    (loop []
      (when-not (= :ok (try-once-resolve-voom-version project))


(defn sh
  [& cmdline]
  ;; (prn :sh cmdline)
  (apply shell/sh (map #(if (= File (class %))
                          (.getPath ^File %)
                          %)
