diff options
| author | Eduardo Julian | 2019-03-17 00:15:52 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2019-03-17 00:15:52 -0400 |
| commit | e9403bb6364152af447080d41a35891f8d75ff30 (patch) | |
| tree | 50605eb36e79482d2604eaa90e93c17d21bbfc1f /stdlib/source/program | |
| parent | 0610e1ae29a4db50d1e4e73992793aaa09ae2ad9 (diff) | |
Now only timing compiler operations in the Leiningen plugin.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/compositor.lux | 15 |
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] |