Browse files

Merge pull request #883 from hyPiRion/fix-with-profile-recursive-aliases

Removes run task aliases within metadata. fix #882
  • Loading branch information...
2 parents 2b00468 + d6ba16b commit b4558ec274812e295ca86ae65f0ce658b0f29ab1 @technomancy committed Dec 11, 2012
Showing with 10 additions and 2 deletions.
  1. +10 −2 leiningen-core/src/leiningen/core/main.clj
12 leiningen-core/src/leiningen/core/main.clj
@@ -142,12 +142,20 @@
(:arglists (meta task))))
+(defn- remove-alias
+ "Removes an alias from the specified project and its metadata (which lies
+ within :without-profiles) to avoid recursive alias calls."
+ [project alias]
+ (-> project
+ (update-in [:aliases] dissoc alias)
+ (vary-meta update-in [:without-profiles :aliases] dissoc alias)))
(defn apply-task
"Resolve task-name to a function and apply project and args if arity matches."
[task-name project args]
(let [[task-alias] (for [[k v] (:aliases project) :when (= v task-name)] k)
- project (and project (update-in project [:aliases] (fnil dissoc {})
- (or task-alias task-name)))
+ project (and project (remove-alias project
+ (or task-alias task-name)))
task (resolve-task task-name)]
(when-not (or project (:no-project-needed (meta task)))
(abort "Couldn't find project.clj, which is needed for" task-name))

0 comments on commit b4558ec

Please sign in to comment.