From a3503c0aca07f5e7f5785faa7b76123a02ecc2af Mon Sep 17 00:00:00 2001
From: Hugo Herbelin <Hugo.Herbelin@inria.fr>
Date: Mon, 7 Jul 2014 21:34:49 +0200
Subject: Revert "time tac" (committed by mistake).

This reverts commit abad0a15ac44cb5b53b87382bb4d587d9800a0f6.
---
 lib/system.ml  | 16 ----------------
 lib/system.mli |  2 --
 2 files changed, 18 deletions(-)

(limited to 'lib')

diff --git a/lib/system.ml b/lib/system.ml
index 4188eb2b4..6c357ee36 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -279,19 +279,3 @@ let fmt_time_difference (startreal,ustart,sstart) (stopreal,ustop,sstop) =
   str "," ++
   real (round (sstop -. sstart)) ++ str "s" ++
   str ")"
-
-let with_time time f x =
-  let tstart = get_time() in
-  let msg = if time then "" else "Finished transaction in " in
-  try
-    let y = f x in
-    let tend = get_time() in
-    let msg2 = if time then "" else " (successful)" in
-    msg_info (str msg ++ fmt_time_difference tstart tend ++ str msg2);
-    y
-  with e ->
-    let tend = get_time() in
-    let msg = if time then "" else "Finished failing transaction in " in
-    let msg2 = if time then "" else " (failure)" in
-    msg_info (str msg ++ fmt_time_difference tstart tend ++ str msg2);
-    raise e
diff --git a/lib/system.mli b/lib/system.mli
index 9cfb1456f..2e286a40c 100644
--- a/lib/system.mli
+++ b/lib/system.mli
@@ -67,5 +67,3 @@ type time
 val get_time : unit -> time
 val time_difference : time -> time -> float (** in seconds *)
 val fmt_time_difference : time -> time -> Pp.std_ppcmds
-
-val with_time : bool -> ('a -> 'b) -> 'a -> 'b
-- 
cgit v1.2.3