Add the convenience fun Time_ns.since

Signed-off-by: Nick <[email protected]>
janestreet · May 23, 2024 · aa9b919 · aa9b919
1 parent d5b4d96
commit aa9b919
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/core/src/time_ns.ml b/core/src/time_ns.ml
@@ -22,6 +22,7 @@ let epoch = Span.zero
 let add = Span.( + )
 let sub = Span.( - )
 let diff = Span.( - )
+let since = diff @@ now ()
 let abs_diff t u = Span.abs (diff t u)
 let max = Span.max
 let min = Span.min

diff --git a/core/src/time_ns_intf.ml b/core/src/time_ns_intf.ml
@@ -396,6 +396,9 @@ module type Time_ns = sig
   (** overflows silently *)
   val diff : t -> t -> Span.t
 
+  (** overflows silently *)
+  val since : t -> Span.t
+
   (** overflows silently *)
   val abs_diff : t -> t -> Span.t