Skip to content
Browse files

Check for in-project :native-path before clearing. Fixes #373.

  • Loading branch information...
1 parent e020e98 commit d3272b458815bf9ec0b7b5ef1236195e0572dc14 @technomancy committed Jan 18, 2012
Showing with 4 additions and 1 deletion.
  1. +1 −0 src/leiningen/classpath.clj
  2. +3 −1 src/leiningen/deps.clj
View
1 src/leiningen/classpath.clj
@@ -37,6 +37,7 @@
(defn get-classpath
"Answer a list of classpath entries for PROJECT."
[project]
+ ;; TODO: special-case for eval-in-leiningen
(concat (if-not (no-dev?)
[(:test-path project)
(:dev-resources-path project)])
View
4 src/leiningen/deps.clj
@@ -186,7 +186,9 @@
(when (fetch-deps? project)
(when-not (or (:disable-deps-clean project)
(:disable-implicit-clean project))
- (delete-file-recursively (:library-path project) :silently)
+ (when (.startsWith (:library-path project) (:root project))
+ ;; if :library-path is outside the root, you're on your own
+ (delete-file-recursively (:library-path project) :silently))
(delete-file-recursively (:native-path project) :silently)
(clean project))
(let [fileset (do-deps project :dependencies)]

0 comments on commit d3272b4

Please sign in to comment.
Something went wrong with that request. Please try again.