Fix parallel inherited aliases

CHANGELOG.md

@@ -13,6 +13,10 @@ This project adheres to [Semantic Versioning](http://semver.org/).
   will be properly quoted for shells.
   [#27](https://github.com/amperity/lein-monolith/issues/27)
   [#72](https://github.com/amperity/lein-monolith/pull/72)
+- When `each` is used with `:parallel`, task aliases are now correctly resolved
+  before iteration starts.
+  [#36](https://github.com/amperity/lein-monolith/issues/36)
+  [#74](https://github.com/amperity/lein-monolith/pull/74)
 
 
 ## [1.5.0] - 2020-09-17

example/libs/lib-b/project.clj

@@ -1,5 +1,6 @@
 (defproject example/lib-b "0.2.0"
   :description "Example lib depending on lib-a."
+  :monolith/inherit [:aliases]
 
   :dependencies
   [[example/lib-a "1.0.0"]

example/project.clj

@@ -1,6 +1,10 @@
 (defproject example/all "MONOLITH"
   :description "Overarching example project."
 
+  :aliases
+  {"version+" ["version"]
+   "version++" ["version+"]}
+
   :plugins
   [[lein-monolith "1.5.1-SNAPSHOT"]
    [lein-pprint "1.2.0"]]
@@ -14,7 +18,8 @@
 
   :monolith
   {:inherit
-   [:test-selectors
+   [:aliases
+    :test-selectors
     :env]
 
    :inherit-leaky

src/lein_monolith/task/each.clj

@@ -209,7 +209,8 @@
         subproject
         (reduce-kv
           (fn inject-profile [p k v] (assoc-in p [:profiles k] v))
-          subproject inherited)
+          subproject
+          inherited)
         (config/debug-profile "init-subproject"
           (locking init-lock
             (project/init-project subproject (cons :default (keys inherited)))))
@@ -254,22 +255,22 @@
 (defn- resolve-tasks
   "Perform an initial resolution of the task to prevent metadata-related
   arglist errors when namespaces are loaded in parallel."
-  [task+args]
-  (let [task (first task+args)]
+  [project task+args]
+  (let [[task args] (lein/task-args task+args project)]
     (lein/resolve-task task)
     ;; Some tasks pull in other tasks, so also resolve them.
     (condp = task
       "do"
-      (doseq [subtask+args (lein-do/group-args (rest task+args))]
-        (resolve-tasks subtask+args))
+      (doseq [subtask+args (lein-do/group-args args)]
+        (resolve-tasks project subtask+args))
 
       "update-in"
-      (let [subtask+args (rest (drop-while #(not= "--" %) task+args))]
-        (resolve-tasks subtask+args))
+      (let [subtask+args (rest (drop-while #(not= "--" %) args))]
+        (resolve-tasks project subtask+args))
 
       "with-profile"
-      (let [subtask+args (drop 2 task+args)]
-        (resolve-tasks subtask+args))
+      (let [subtask+args (rest args)]
+        (resolve-tasks project subtask+args))
 
       ;; default no-op
       nil)))
@@ -344,7 +345,7 @@
   [ctx threads targets]
   (let [deps (partial dep/upstream-keys (dep/dependency-map (:subprojects ctx)))
         thread-pool (executor/fixed-thread-executor threads)]
-    (resolve-tasks (:task ctx))
+    (resolve-tasks (:monolith ctx) (:task ctx))
     (->
       (reduce
         (fn future-builder