From 604644d7c72af1f1e87ab4fc2d7e8f7376c9b906 Mon Sep 17 00:00:00 2001 From: Kate Date: Tue, 8 Feb 2022 11:35:52 +0000 Subject: [PATCH] Add support for OCaml 5.00 --- lwt_log.opam | 4 ++-- src/core/lwt_log_core.ml | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lwt_log.opam b/lwt_log.opam index 963d217..32e408f 100644 --- a/lwt_log.opam +++ b/lwt_log.opam @@ -16,9 +16,9 @@ maintainer: "Anton Bachin " dev-repo: "git+https://github.com/ocsigen/lwt_log.git" depends: [ - "dune" + "dune" {>= "1.0"} "lwt" {>= "4.0.0"} - "ocaml" + "ocaml" {>= "4.03"} ] build: [ diff --git a/src/core/lwt_log_core.ml b/src/core/lwt_log_core.ml index aca2a88..c5ef5b3 100644 --- a/src/core/lwt_log_core.ml +++ b/src/core/lwt_log_core.ml @@ -47,7 +47,7 @@ let string_of_level = function | Fatal -> "fatal" let level_of_string str = - let str = (String.lowercase [@ocaml.warning "-3"]) str in + let str = String.lowercase_ascii str in match str with | "debug" -> Some Debug | "info" -> Some Info