aboutsummaryrefslogtreecommitdiff
path: root/lux-lein
diff options
context:
space:
mode:
authorEduardo Julian2019-03-17 00:15:52 -0400
committerEduardo Julian2019-03-17 00:15:52 -0400
commite9403bb6364152af447080d41a35891f8d75ff30 (patch)
tree50605eb36e79482d2604eaa90e93c17d21bbfc1f /lux-lein
parent0610e1ae29a4db50d1e4e73992793aaa09ae2ad9 (diff)
Now only timing compiler operations in the Leiningen plugin.
Diffstat (limited to '')
-rw-r--r--lux-lein/src/leiningen/lux/builder.clj10
-rw-r--r--lux-lein/src/leiningen/lux/packager.clj2
-rw-r--r--lux-lein/src/leiningen/lux/test.clj18
3 files changed, 15 insertions, 15 deletions
diff --git a/lux-lein/src/leiningen/lux/builder.clj b/lux-lein/src/leiningen/lux/builder.clj
index eeb1cead7..ebfbc7895 100644
--- a/lux-lein/src/leiningen/lux/builder.clj
+++ b/lux-lein/src/leiningen/lux/builder.clj
@@ -6,10 +6,10 @@
(defn build [project]
(if-let [program-module (get-in project [:lux :program])]
- (when (&utils/run-process (&utils/compile-path project program-module (get project :source-paths (list)))
- nil
- "[COMPILATION BEGAN]"
- "[COMPILATION ENDED]")
- (&packager/package project program-module (get project :resource-paths (list)))
+ (when (time (&utils/run-process (&utils/compile-path project program-module (get project :source-paths (list)))
+ nil
+ "[COMPILATION BEGAN]"
+ "[COMPILATION ENDED]"))
+ (time (&packager/package project program-module (get project :resource-paths (list))))
true)
(println missing-module-error)))
diff --git a/lux-lein/src/leiningen/lux/packager.clj b/lux-lein/src/leiningen/lux/packager.clj
index eafa4ed06..7f80b1763 100644
--- a/lux-lein/src/leiningen/lux/packager.clj
+++ b/lux-lein/src/leiningen/lux/packager.clj
@@ -231,4 +231,4 @@
(defn package
"(-> Text Text (List Text) Null)"
[project module resources-dirs]
- (time (package-jvm project module resources-dirs)))
+ (package-jvm project module resources-dirs))
diff --git a/lux-lein/src/leiningen/lux/test.clj b/lux-lein/src/leiningen/lux/test.clj
index 3ecfcbe6e..84ba33d58 100644
--- a/lux-lein/src/leiningen/lux/test.clj
+++ b/lux-lein/src/leiningen/lux/test.clj
@@ -8,19 +8,19 @@
(defn test [project]
(if-let [test-module (get-in project [:lux :test])]
- (when (&utils/run-process (&utils/compile-path project test-module (concat (:test-paths project) (:source-paths project)))
- nil
- "[COMPILATION BEGAN]"
- "[COMPILATION ENDED]")
+ (when (time (&utils/run-process (&utils/compile-path project test-module (concat (:test-paths project) (:source-paths project)))
+ nil
+ "[COMPILATION BEGAN]"
+ "[COMPILATION ENDED]"))
(let [java-cmd (get project :java-cmd "java")
jvm-opts (->> (get project :jvm-opts) (interpose " ") (reduce str ""))
output-package (str (get project :target-path &utils/default-target-dir)
java.io.File/separator
(get project :jar-name &utils/output-package))]
- (do (&packager/package project test-module (get project :resource-paths (list)))
- (&utils/run-process (str java-cmd " " jvm-opts " -jar " output-package)
- nil
- "[TESTING BEGAN]"
- "[TESTING ENDED]")
+ (do (time (&packager/package project test-module (get project :resource-paths (list))))
+ (time (&utils/run-process (str java-cmd " " jvm-opts " -jar " output-package)
+ nil
+ "[TESTING BEGAN]"
+ "[TESTING ENDED]"))
true)))
(println missing-module-error)))