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

Add LEIN_SUPPRESS_USER_LEVEL_REPO_WARNINGS

Browse source 
Can be used to suppress warnings about repositories in user level profiles.  Also
adds the list of profiles containing :repositories when not suppressed.
This commit is contained in:
Hugo Duncan 2013-02-06 13:55:22 -05:00
parent ca9da99e5b
commit 7807740f8b
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -377,11 +377,17 @@
:else (or profile {})))
(defn- warn-user-repos []
(when (->> (vals (user/profiles))
(map (comp second :repositories))
(apply concat) (some :url))
(println "WARNING: :repositories detected in user-level profile!")
(println "See https://github.com/technomancy/leiningen/wiki/Repeatability")))
(let [profiles (filter #(->> (val %)
:repositories
vals
(some :url))
(user/profiles))]
(when (and (seq profiles)
(not (System/getenv "LEIN_SUPPRESS_USER_LEVEL_REPO_WARNINGS")))
(println
"WARNING: :repositories detected in user-level profiles!"
(vec (map key profiles)))
(println "See https://github.com/technomancy/leiningen/wiki/Repeatability"))))
(alter-var-root #'warn-user-repos memoize)