Improve overview and experiment naming

[khatus.git] / v3 / src / lib / khatus_time.ml

diff --git a/v3/src/lib/khatus_time.ml b/v3/src/lib/khatus_time.ml
deleted file mode 100644 (file)
index 9410417..0000000
--- a/v3/src/lib/khatus_time.ml
+++ /dev/null
@@ -1,25 +0,0 @@
-module Span = struct
-  type t = float
-
-  let of_string s =
-    float_of_string s
-
-  let is_gt_or_eq t1 t2 =
-    t1 >= t2
-end
-
-type t = float
-
-let init = 0.0
-
-let diff t0 t1 =
-  t1 -. t0
-
-let to_string t =
-  Printf.sprintf "%f" t
-  |> String.split_on_char '.'
-  |> List.hd
-
-let of_string s =
-  (* TODO: Shall we validate time string format at msg parse time? *)
-  float_of_string s