Skip to content

Instantly share code, notes, and snippets.

@michaelklishin
Created March 13, 2012 19:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save michaelklishin/2030833 to your computer and use it in GitHub Desktop.
Save michaelklishin/2030833 to your computer and use it in GitHub Desktop.
diff --git a/leiningen-core/src/leiningen/core/main.clj b/leiningen-core/src/leiningen/core/main.clj
index 5162578..64cee91 100644
--- a/leiningen-core/src/leiningen/core/main.clj
+++ b/leiningen-core/src/leiningen/core/main.clj
@@ -31,8 +31,8 @@
(apply println msg)
(exit 1)))
-(defn ^:no-project-needed task-not-found [& _]
- (abort "That's not a task. Use \"lein help\" to list all tasks."))
+(defn ^:no-project-needed task-not-found [task & _]
+ (abort (str task " is not a task. Use \"lein help\" to list all tasks.")))
;; TODO: got to be a cleaner way to do this, right?
(defn- drop-partial-args [pargs]
@@ -49,12 +49,13 @@
(try
(when-not (find-ns task-ns)
(require task-ns))
- (let [task-var (or (ns-resolve task-ns (symbol task)) not-found)]
+ (if-let [task-var (ns-resolve task-ns (symbol task))]
(with-meta
(fn [project & args] (apply task-var project (concat pargs args)))
- (update-in (meta task-var) [:arglists] (drop-partial-args pargs))))
+ (update-in (meta task-var) [:arglists] (drop-partial-args pargs)))
+ (not-found task))
(catch java.io.FileNotFoundException e
- not-found))))
+ (not-found task)))))
([task] (resolve-task task #'task-not-found)))
(defn ^:internal matching-arity? [task args]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment