From 73ff53d39eba035687ef234e8ddb7970cd9d5719 Mon Sep 17 00:00:00 2001 From: Alex Osborne Date: Sat, 21 Nov 2009 12:28:22 +1100 Subject: [PATCH] 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. --- src/leiningen/pom.clj | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/leiningen/pom.clj b/src/leiningen/pom.clj index ded35011..b7ada010 100644 --- a/src/leiningen/pom.clj +++ b/src/leiningen/pom.clj @@ -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]