 (defn find-matching-projects
   "[project {groupId name ctime sha}] [project coordinate-string]"
   [repos-dir pspec]
-  (prn "find-matching-projects" repos-dir pspec)
   ;; TODO: find correct sha and project.clj more efficiently and with
   ;; less ambiguity. (only consider projects changed at the given sha)
   (let [{:keys [sha artifactId groupId]} pspec

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

  undefined. Throws an exception with detailed message if artifact
  cannot be resolved."
  [old-exception proj {:keys [groupId artifactId version] :as art}]
  (println "Did not find, will build" (pr-str) art)

  (if-let [vmap (ver-parse version)]
    (let [dep-entry [(symbol groupId artifactId) version]
