Source
leiningen/checkout_deps.clj:5
top
(defn checkout-deps-paths [project]
(apply concat (for [dep (.listFiles (file (:root project) "checkouts"))]
;; Note that this resets the leiningen.core/project var!
(let [proj (binding [*ns* (find-ns 'leiningen.core)]
(read-project (.getAbsolutePath
(file dep "project.clj"))))]
(for [d [:source-path :compile-path :resources-path]]
(proj d))))))
Comments top
No comments for checkout-deps-paths. Log in to add a comment.