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

Honor aliases in with-profile. Fixes #598.

Browse source
This commit is contained in:
Phil Hagelberg 2012-05-28 20:15:35 -07:00
parent f4b0b19f0f
commit d124c96d85
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/leiningen/with_profile.clj
View file

@ -6,7 +6,10 @@
"Apply the given task with a comma-separated profile list."
[project profiles task-name & args]
(let [profiles (map keyword (.split profiles ","))
project (project/merge-profiles project profiles)]
project (project/merge-profiles project profiles)
task-name (or (@main/aliases task-name)
(get (:aliases project) task-name)
task-name)]
(main/apply-task task-name project args)))
(defn ^:no-project-needed with-profile