Adjusted signature of equal_local_date_time_result

timedesc-sexp/of_sexp.ml

@@ -135,7 +135,7 @@ let date_time_of_sexp (x : Sexp.t) =
           with
           | Ok x ->
             if
-              T.equal_local_date_time_result ~eq:T.Span.equal offset_from_utc
+              T.equal_local_date_time_result T.Span.equal offset_from_utc
                 T.(offset_from_utc x)
             then x
             else invalid_data ()

timedesc/date_time.ml

@@ -21,7 +21,7 @@ type 'a local_date_time_result =
   | `Ambiguous of 'a * 'a
   ]
 
-let equal_local_date_time_result ~eq (x : 'a local_date_time_result) (y : 'a local_date_time_result) =
+let equal_local_date_time_result eq (x : 'a local_date_time_result) (y : 'a local_date_time_result) =
   match (x, y) with
   | `Single x, `Single y -> eq x y
   | `Ambiguous (x1, x2), `Ambiguous (y1, y2) -> eq x1 y1 && eq x2 y2
@@ -123,7 +123,7 @@ let equal (x : t) (y : t) =
   Date.equal x.date y.date
   && Time.equal x.time y.time
   && Time_zone.equal x.tz y.tz
-  && equal_local_date_time_result ~eq:Span.equal x.offset_from_utc y.offset_from_utc
+  && equal_local_date_time_result Span.equal x.offset_from_utc y.offset_from_utc
 
 let now ?tz_of_date_time () : t =
   timestamp_now ()

timedesc/timedesc.mli

@@ -276,7 +276,7 @@ val max_of_local_date_time_result : 'a local_date_time_result -> 'a
 *)
 
 val equal_local_date_time_result :
-  eq:('a -> 'a -> bool) -> 'a local_date_time_result -> 'a local_date_time_result -> bool
+  ('a -> 'a -> bool) -> 'a local_date_time_result -> 'a local_date_time_result -> bool
 
 (** {1 Span} *)