Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

explicitly return result of `compile` for tasks that check for it (e.…

…g. `jar`); fixes gh-2 and gh-3
  • Loading branch information...
commit d9032d3fe218b11d8f1fa7bf2ab89de6d6113c9e 1 parent 158d6da
Chas Emerick cemerick authored
Showing with 14 additions and 12 deletions.
  1. +7 −6 ch08-lein-mixed-source/project.clj
  2. +7 −6 ch09-gen-class/project.clj
13 ch08-lein-mixed-source/project.clj
View
@@ -12,9 +12,10 @@ Programming' by Emerick, Carper, and Grand."
(robert.hooke/add-hook #'leiningen.compile/compile
(fn [compile project & args]
- (apply compile project args)
- (leiningen.javac/javac (assoc project
- ;; Leiningen 1 uses :java-source-path
- :java-source-path "srcj"
- ;; Lein 2 uses :java-source-paths
- :java-source-paths ["srcj"]))))
+ (let [compile-result (apply compile project args)]
+ (leiningen.javac/javac (assoc project
+ ;; Leiningen 1 uses :java-source-path
+ :java-source-path "srcj"
+ ;; Lein 2 uses :java-source-paths
+ :java-source-paths ["srcj"]))
+ compile-result)))
13 ch09-gen-class/project.clj
View
@@ -11,10 +11,11 @@ From chapter 9 of 'Clojure Programming' by Emerick, Carper, and Grand."
(robert.hooke/add-hook #'leiningen.compile/compile
(fn [compile project & args]
- (apply compile project args)
- (leiningen.javac/javac (assoc project
- ;; Leiningen 1 uses :java-source-path
- :java-source-path "src"
- ;; Lein 2 uses :java-source-paths
- :java-source-paths ["src"]))))
+ (let [compile-result (apply compile project args)]
+ (leiningen.javac/javac (assoc project
+ ;; Leiningen 1 uses :java-source-path
+ :java-source-path "srcj"
+ ;; Lein 2 uses :java-source-paths
+ :java-source-paths ["srcj"]))
+ compile-result)))
Please sign in to comment.
Something went wrong with that request. Please try again.