Added more of_http aliases

timedesc/timedesc.ml

@@ -206,6 +206,10 @@ module Timestamp = struct
   let of_rfc9110 = RFC9110_parsers.timestamp_of_str
 
   let of_rfc9110_exn = of_rfc9110_exn' of_rfc9110
+
+  let of_http = of_rfc9110
+
+  let of_http_exn = of_rfc9110_exn
 end
 
 let to_string = Printers.string_of_date_time
@@ -263,6 +267,10 @@ let of_rfc9110 = RFC9110_parsers.date_time_of_str
 
 let of_rfc9110_exn = of_rfc9110_exn' of_rfc9110
 
+let of_http = of_rfc9110
+
+let of_http_exn = of_rfc9110_exn
+
 let min_of_local_result = min_of_local_result
 
 let max_of_local_result = max_of_local_result

timedesc/timedesc.mli

@@ -1522,6 +1522,12 @@ val of_rfc9110 : string -> (t, string) result
 val of_rfc9110_exn : string -> t
 (** @raise RFC9110_parse_exn if [of_rfc9110] fails *)
 
+val of_http : string -> (t, string) result
+(** Alias to [of_rfc9110] *)
+
+val of_http_exn : string -> t
+(** Alias to [of_rfc9110_exn] *)
+
 (** {1 Timestamp} *)
 
 module Timestamp : sig
@@ -1709,6 +1715,12 @@ module Timestamp : sig
 
   val of_rfc9110_exn : string -> t
   (** @raise RFC9110_parse_exn if [of_rfc9110] fails *)
+
+  val of_http : string -> (t, string) result
+  (** Alias to [of_rfc9110] *)
+
+  val of_http_exn : string -> t
+  (** Alias to [of_rfc9110_exn] *)
 end
 
 (** {1 Interval} *)