Only call setScm if retrieving git data actually works.

It worked fine before (as it just called setScm with nil)
but clearing the scm might lead to confusion down the track.
This commit is contained in:
Alex Osborne 2009-11-21 12:28:22 +11:00 committed by Phil Hagelberg
parent 6876da93f5
commit 73ff53d39e

View file

@ -92,13 +92,14 @@
(.setName (:name project))
(.setVersion (:version project))
(.setGroupId (:group project))
(.setDescription (:description project))
(.setScm (make-git-scm (file (:root project) ".git"))))]
(.setDescription (:description project)))]
;; TODO: add leiningen as a test-scoped dependency
(doseq [dep (:dependencies project)]
(.addDependency model (make-dependency dep)))
(doseq [repo (concat (:repositories project) default-repos)]
(.addRepository model (make-repository repo)))
(when-let [scm (make-git-scm (file (:root project) ".git"))]
(.setScm scm))
model))
(defn make-pom [project]