From e9403bb6364152af447080d41a35891f8d75ff30 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 17 Mar 2019 00:15:52 -0400
Subject: Now only timing compiler operations in the Leiningen plugin.

---
 stdlib/source/program/compositor.lux | 15 ---------------
 1 file changed, 15 deletions(-)

(limited to 'stdlib/source/program/compositor.lux')

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]
-- 
cgit v1.2.3