(defn resolve-task [task]
(let [task-ns (symbol (str "leiningen." task))
task (symbol task)]
(try
(when-not (find-ns task-ns)
(require task-ns))
(or (ns-resolve task-ns task)
#'task-not-found)
(catch java.io.FileNotFoundException e
#'task-not-found))))
Comments top
No comments for resolve-task. Log in to add a comment.