Fix error caused by Timedesc update

ocaml · Aug 21, 2023 · c40ba6a · c40ba6a
1 parent 3d77c49
commit c40ba6a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ocamlorg_frontend/utils.ml b/src/ocamlorg_frontend/utils.ml
@@ -3,7 +3,7 @@ let human_date s =
   try
     let date_s = Timedesc.Date.of_iso8601_exn s in
     let midnight = Time.make_exn ~hour:0 ~minute:0 ~second:0 () in
-    let zoneless_s = Zoneless.make date_s midnight in
+    let zoneless_s = Zoneless.of_date_and_time date_s midnight in
     let date_time = zoneless_s |> Zoneless.to_zoned_exn ~tz:Time_zone.utc in
     Format.asprintf "%a" (pp ~format:"{day:0X} {mon:Xxx} {year}" ()) date_time
   with Timedesc.ISO8601_parse_exn msg ->