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

Add ^:replace metadata to :aot [:all] normalization.

Browse source
This commit is contained in:
Phil Hagelberg 2014-04-24 13:30:47 -07:00
parent f887bedc15
commit 23b0804f67
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
leiningen-core/src/leiningen/core/project.clj
View file

@ -209,7 +209,7 @@
(defn normalize-aot [project]
(if (= :all (:aot project))
(assoc project :aot [:all])
(assoc project :aot ^:replace [:all])
project))
(defn- normalize-repo

14
src/leiningen/jar.clj
View file

@ -204,13 +204,13 @@ propagated to the compilation phase and not stripped out."
"\nIf you only need AOT for your uberjar, consider adding"
":aot :all into your\n:uberjar profile instead.")))
(defn warn-implicit-aot [project]
(let [project (project/merge-profiles project [:uberjar])]
(when (and (:main project) (not (:skip-aot (meta (:main project))))
(not= :all (:aot project))
(not= [:all] (:aot project))
(not (some #{(:main project)} (:aot project))))
(force implicit-aot-warning))))
(defn warn-implicit-aot [orig-project]
(let [project (project/merge-profiles orig-project [:uberjar])]
(when (and (:main project) (not (:skip-aot (meta (:main project))))
(not= :all (:aot project))
(not= [:all] (:aot project))
(not (some #{(:main project)} (:aot project))))
(force implicit-aot-warning))))
;; TODO: remove for 3.0
(defn- add-main [project given-main]