better if-not-match

.jjconflict-side-1/src/time.mli

@@ -0,0 +1,54 @@
+module Relative : sig
+  type t
+
+  val forever : t
+  val zero : t
+  val compare : t -> t -> int
+  val min : t -> t -> t
+  val max : t -> t -> t
+  val add : t -> t -> t
+  val sub : t -> t -> t
+  val of_s : int64 -> t
+
+  (* - *)
+  val bin : t Bin.t
+  val bin_nbo : t Bin.t
+  val caqti : t Caqti_type.t
+  val jsont : t Jsont.t
+end
+
+module Absolute : sig
+  type t
+
+  val never : t
+  val zero : t
+  val compare : t -> t -> int
+  val min : t -> t -> t
+  val max : t -> t -> t
+  val diff : t -> t -> Relative.t
+  val add : t -> Relative.t -> t
+  val sub : t -> Relative.t -> t
+  val of_s : int64 -> t
+  val of_ptime : Ptime.t -> t
+end
+
+module Timestamp : sig
+  type t
+
+  val never : t
+  val zero : t
+  val compare : t -> t -> int
+  val diff : t -> t -> Relative.t
+  val of_s : int64 -> t
+
+  (* none if t = never *)
+  val to_s : t -> int64 option
+  val of_absolute : Absolute.t -> t
+  val of_ptime : Ptime.t -> t
+
+  (* - *)
+  val bin : t Bin.t
+  val bin_nbo : t Bin.t
+  val caqti : t Caqti_type.t
+  val jsont : t Jsont.t
+end