diff options
Diffstat (limited to 'stdlib/source/program/compositor.lux')
| -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] |