From 61031fb957974bb4c42724f73dc8915c351a7d6f Mon Sep 17 00:00:00 2001 From: Darren Li Date: Fri, 8 Dec 2023 13:34:05 +1100 Subject: [PATCH] Replaced use of StringLabels --- timedesc/RFC9110_parsers.ml | 2 +- timedesc/timedesc.mli | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/timedesc/RFC9110_parsers.ml b/timedesc/RFC9110_parsers.ml index c20a4f7f..9b7ae34b 100644 --- a/timedesc/RFC9110_parsers.ml +++ b/timedesc/RFC9110_parsers.ml @@ -20,7 +20,7 @@ let month_p : int Angstrom.t = if String.length s < 3 then fail (Printf.sprintf "Invalid month: %s" s) else ( - (match String.lowercase_ascii @@ StringLabels.sub ~pos:0 ~len:3 s with + (match String.lowercase_ascii @@ String.sub s 0 3 with | "jan" -> return 1 | "feb" -> return 2 | "mar" -> return 3 diff --git a/timedesc/timedesc.mli b/timedesc/timedesc.mli index 41152763..8e122787 100644 --- a/timedesc/timedesc.mli +++ b/timedesc/timedesc.mli @@ -2192,7 +2192,7 @@ module Utils : sig You are advised to read the source code of the following functions in [date_time_utils.ml] if you intend to use them to ensure they behave as you expect. - *) + *) val is_leap_year : year:int -> bool