yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge commit 'danlarkin/guard-against-arity'

Browse source
This commit is contained in:
Phil Hagelberg 2009-12-10 22:00:28 -08:00
commit a27704b7f9
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/leiningen/core.clj
View file

@ -46,7 +46,7 @@
(def no-project-needed #{"new" "help" "version"})
(defn task-not-found [task project & _]
(println task "is not a task. Use \"help\" to list all task.")
(println task "is not a task. Use \"help\" to list all tasks.")
(System/exit 1))
(defn resolve-task [task]
@ -68,6 +68,10 @@
compile-path (:compile-path (first args))]
(when compile-path (.mkdirs (File. compile-path)))
(binding [*compile-path* compile-path]
(apply (resolve-task task) args))
(try
(apply (resolve-task task) args)
(catch IllegalArgumentException _
(println (format "Wrong number of arguments to task %s." task))
(System/exit 1))))
;; In case tests or some other task started any:
(shutdown-agents)))