   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]


(defn find-project
  [pgroup pname candidate]
  (prn "find-project" pgroup pname candidate)
  (for [p (find-project-files candidate)
        :let [{:keys [group name] :as prj} (project/read p)]
        :when (and (= group pgroup)

(defn find-matching-projects
  "[project {groupId name ctime sha}] [project coordinate-string]"
  [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
