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

Emit warning when user profile is in project files

Browse source 
This implements issue #890.
It warns if a :user profile is found in either project.clj or
a profiles.clj in the project directory.
This commit is contained in:
Michael Grubb 2013-01-13 21:26:20 -06:00
parent fbc1804f86
commit ec435b48a6
1 changed files with 10 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -362,8 +362,16 @@
(alter-var-root #'warn-user-repos memoize)
(defn- warn-user-profile [profiles]
(when (contains? profiles :user)
(println "WARNING: user-level profile defined in project files.")))
(alter-var-root #'warn-user-profile memoize)
(defn- project-profiles [project]
(utils/read-file (io/file (:root project) "profiles.clj")))
(let [profiles (utils/read-file (io/file (:root project) "profiles.clj"))]
(warn-user-profile profiles)
profiles))
(defn- read-profiles
"Read profiles from a variety of sources.
@ -373,6 +381,7 @@
project map."
[project]
(warn-user-repos)
(warn-user-profile (:profiles project))
(merge @default-profiles (user/profiles)
(:profiles project) (project-profiles project)))