Fix passing of stale project map bug.
Since release-tasks could include any number of lein-change calls, seems like a good idea to re-read project.clj between tasks. Signed-off-by: Wayne <wayne@puppetlabs.com>
This commit is contained in:
parent
2b7e7d8e56
commit
bbc75a6f3a
1 changed files with 5 additions and 3 deletions
|
@ -1,6 +1,7 @@
|
||||||
(ns leiningen.release
|
(ns leiningen.release
|
||||||
"Perform :release-tasks."
|
"Perform :release-tasks."
|
||||||
(:require [leiningen.core.main :as main]))
|
(:require [leiningen.core.main :as main]
|
||||||
|
[leiningen.core.project]))
|
||||||
|
|
||||||
(def ^:dynamic *level* "patch")
|
(def ^:dynamic *level* "patch")
|
||||||
|
|
||||||
|
@ -49,5 +50,6 @@ TODO: document default :release-tasks and how to change them."
|
||||||
(binding [*level* level]
|
(binding [*level* level]
|
||||||
(doseq [task (:release-tasks project)]
|
(doseq [task (:release-tasks project)]
|
||||||
(let [[task-name & task-args] (if (vector? task) task [task])
|
(let [[task-name & task-args] (if (vector? task) task [task])
|
||||||
task-name (main/lookup-alias task-name project)]
|
task-name (main/lookup-alias task-name project)
|
||||||
(main/apply-task task-name project task-args)))))
|
current-project (leiningen.core.project/read)]
|
||||||
|
(main/apply-task task-name current-project task-args)))))
|
||||||
|
|
Loading…
Reference in a new issue