aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
authorEduardo Julian2019-03-17 00:15:52 -0400
committerEduardo Julian2019-03-17 00:15:52 -0400
commite9403bb6364152af447080d41a35891f8d75ff30 (patch)
tree50605eb36e79482d2604eaa90e93c17d21bbfc1f /stdlib/source/program
parent0610e1ae29a4db50d1e4e73992793aaa09ae2ad9 (diff)
Now only timing compiler operations in the Leiningen plugin.
Diffstat (limited to '')
-rw-r--r--stdlib/source/program/compositor.lux15
1 files changed, 0 insertions, 15 deletions
diff --git a/stdlib/source/program/compositor.lux b/stdlib/source/program/compositor.lux
index 5fb90837f..3c4d2015c 100644
--- a/stdlib/source/program/compositor.lux
+++ b/stdlib/source/program/compositor.lux
@@ -44,20 +44,6 @@
(#error.Success output)
(wrap output))))
-(def: (timed action)
- (All [a]
- (-> (-> Any (IO (Error a))) (IO (Error a))))
- (do (error.with io.monad)
- [start (: (IO (Error Instant))
- (error.lift io.monad instant.now))
- result (action [])
- finish (: (IO (Error Instant))
- (error.lift io.monad instant.now))
- #let [elapsed-time (instant.span start finish)
- _ (log! (format text.new-line
- "Elapsed time: " (%duration elapsed-time)))]]
- (wrap result)))
-
(def: #export (compiler expander platform bundle service)
(All [anchor expression statement]
(-> Expander
@@ -71,7 +57,6 @@
(case service
(#cli.Compilation configuration)
(<| (or-crash! "Compilation failed:")
- ..timed
(function (_ _)
(do (error.with io.monad)
[state (:share [anchor expression statement]