From 528e9c70e65d976d8a89edf19476d82649933429 Mon Sep 17 00:00:00 2001 From: Phil Hagelberg Date: Tue, 13 Dec 2011 21:06:59 -0800 Subject: [PATCH] Generate pom from pre-profile project. --- 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 1622a030..5651f8af 100644 --- a/src/leiningen/pom.clj +++ b/src/leiningen/pom.clj @@ -49,8 +49,9 @@ (defn ^{:help-arglists '([])} pom "Write a pom.xml file to disk for Maven interop." ([project pom-location silently?] - (let [pom-file (file (:root project) pom-location)] - (copy (make-pom project true) pom-file) + (let [pom-file (file (:root project) pom-location) + original-project (:without-profiles (meta project))] + (copy (make-pom original-project true) pom-file) (when-not silently? (println "Wrote" (.getName pom-file))) (.getAbsolutePath pom-file))) ([project pom-location] (pom project pom-location false))