Fix with-profile task to work from the base project rather than being additive.

This commit is contained in:
Phil Hagelberg 2012-08-22 12:04:17 -07:00
parent f6e5959e7c
commit 2348b6b619
2 changed files with 2 additions and 2 deletions

View file

@ -310,7 +310,7 @@
(ssl/register-scheme (ssl/https-scheme context))
project))
(defn- reset-profiles
(defn reset-profiles
"Compute a fresh version of the project map with middleware applied, including
and excluding the specified profiles."
[project include-profiles & [exclude-profiles]]

View file

@ -6,7 +6,7 @@
"Apply the given task with a comma-separated profile list."
[project profiles task-name & args]
(let [profiles (map keyword (.split profiles ","))
project (and project (project/merge-profiles project profiles))
project (and project (project/reset-profiles project profiles))
task-name (main/lookup-alias task-name project)]
(main/apply-task task-name project args)))