-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