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

Grant non-project profile access to with-profile

Browse source
This commit is contained in:
Colin Jones 2013-03-19 23:13:30 -05:00
parent fe6a0d1db2
commit 3a2cf94324
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/leiningen/with_profile.clj
View file

@ -8,7 +8,9 @@
"Apply the given task with a comma-separated profile list."
[project profiles task-name args]
(hooke/with-scope
(let [project (and project (project/set-profiles project profiles))
(let [project (and project (project/set-profiles
(project/project-with-profiles project)
profiles))
task-name (main/lookup-alias task-name project)]
(main/apply-task task-name project args))))