Merge branch 'feature/timezone-ord-schema' into 'master'

mefyl · mefyl · commit c07b450ae01f · 2025-01-27T11:04:42.000Z
Make timezones comparable

See merge request routine/timmy!20
diff --git a/timmy/lib/src/timezone.ml b/timmy/lib/src/timezone.ml
@@ -42,3 +42,12 @@ let name = function
       "it appears you mixed a pre 1.0 Clock implementation with a post 1.1 \
        Timmy interface"
   | { name; _ } -> name
+
+module T = struct
+  type nonrec t = t
+
+  let compare t1 t2 = String.compare (name t1) (name t2)
+  let sexp_of_t t = Base.Sexp.Atom (name t)
+end
+
+include Base.Comparable.Make (T)
diff --git a/timmy/lib/src/timezone.mli b/timmy/lib/src/timezone.mli
@@ -43,3 +43,10 @@ val gmt_offset_seconds_at_time : t -> Ptime.t -> int
 
 (** [name tz] is the IANA name of [tz], if it could be determined. *)
 val name : t -> string
+
+(** {1 Comparison} *)
+
+(** Timezones are comparable through their names. *)
+
+(** @inline *)
+include Base.Comparable.S with type t := t
