   [dirs]
   (doseq [^File d dirs]
     (println "Fetching:" (.getPath d))
-    (git d "fetch")))
+    (git {:gitdir d} "fetch")))
 
 (defn find-project
   [pgroup pname candidate]

                               (locate-sha dirs sha)))]
    (prn "sha-candidates" sha-candidates)
    (mapcat (fn [c]
              (git c "checkout" sha)
              (find-project groupId artifactId c))
            sha-candidates)))


  (let [[kstrs sargs] (split-with #(.startsWith ^String % ":") args)
        kargset (set (map #(keyword (subs % 1)) kstrs))
        long-sha (kargset :long-sha)
        gver (-> project :root (get-voom-version :long-sha? long-sha))
        qual (format-voom-ver gver timestamp-fmt)
        upfn #(str (s/replace % #"-SNAPSHOT" "") qual)
        nproj (update-in project [:version] upfn)
