issue #1 - pass task-name and args to run-sub-proj

kumarshantanu · Oct 16, 2011 · e55cad4 · e55cad4
1 parent 5d4d31a
commit e55cad4
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/leiningen/sub.clj b/src/leiningen/sub.clj
@@ -4,7 +4,7 @@
 
 
 (defn run-sub-proj
-  [sub-proj-dir]
+  [sub-proj-dir task-name args]
   (println "Reading project from " sub-proj-dir)
   (let [sub-project (read-project (str sub-proj-dir "/project.clj"))]
     (apply-task task-name sub-project args task-not-found)))
@@ -23,5 +23,6 @@ Note: Each sub-project directory should have its own project.clj file")
                               (let [a (if (= 0 a) nil a)
                                     b (if (= 0 b) nil b)]
                                 (or a b)))
-                            (map run-sub-proj (:sub project)))]
+                            (map #(run-sub-proj % task-name args)
+                                 (:sub project)))]
       (exit code))))