aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/program
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/program')
-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]