diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-07-07 21:34:49 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-07-07 21:34:49 +0200 |
| commit | a3503c0aca07f5e7f5785faa7b76123a02ecc2af (patch) | |
| tree | ae07277425e50314b0c341752a11af3055a01907 /lib | |
| parent | abad0a15ac44cb5b53b87382bb4d587d9800a0f6 (diff) | |
Revert "time tac" (committed by mistake).
This reverts commit abad0a15ac44cb5b53b87382bb4d587d9800a0f6.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/system.ml | 16 | ||||
| -rw-r--r-- | lib/system.mli | 2 |
2 files changed, 0 insertions, 18 deletions
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 |