yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Generate pom from pre-profile project.

Browse source
This commit is contained in:
Phil Hagelberg 2011-12-13 21:06:59 -08:00
parent da54afa8c8
commit 528e9c70e6
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/leiningen/pom.clj
View file

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