From fe245d18a7430dc12d6157b0167d0e27bbef7989 Mon Sep 17 00:00:00 2001
From: Kate <kit.ty.kate@disroot.org>
Date: Thu, 13 Oct 2022 19:18:25 +0100
Subject: [PATCH] Add support for OCaml 5.0

---
 lambdasoup.opam |  4 ++--
 src/dune        |  2 +-
 src/soup.ml     | 13 -------------
 3 files changed, 3 insertions(+), 16 deletions(-)

diff --git a/lambdasoup.opam b/lambdasoup.opam
index 0ef549c..a49cd85 100644
--- a/lambdasoup.opam
+++ b/lambdasoup.opam
@@ -12,10 +12,10 @@ maintainer: "Anton Bachin <antonbachin@yahoo.com>"
 dev-repo: "git+https://github.com/aantron/lambdasoup.git"
 
 depends: [
-  # As a consequence of depending on Dune, Lambda Soup requires OCaml 4.02.3.
   "dune" {>= "2.7.0"}
   "markup" {>= "1.0.0"}
-  "ocaml" {>= "4.02.0"}
+  "camlp-streams" {>= "5.0.1"}
+  "ocaml" {>= "4.03.0"}
 
   "bisect_ppx" {dev & >= "2.5.0"}
   "ounit2" {with-test}
diff --git a/src/dune b/src/dune
index a49ff48..b34ca38 100644
--- a/src/dune
+++ b/src/dune
@@ -5,4 +5,4 @@
  (wrapped false)
  (flags (:standard -w +A -warn-error -3))
  (instrumentation (backend bisect_ppx))
- (libraries markup))
+ (libraries markup camlp-streams))
diff --git a/src/soup.ml b/src/soup.ml
index 58f19c4..b03ab19 100644
--- a/src/soup.ml
+++ b/src/soup.ml
@@ -27,19 +27,6 @@ struct
       in
       let suffix_length = measure_suffix 0 in
       String.sub s 0 (String.length s - suffix_length)
-
-  (* Convert multiple deprecation warnings into one warning. This function can
-     be removed from the module if/when Lambda Soup supports only
-     OCaml >= 4.03. *)
-  let lowercase_ascii = lowercase [@ocaml.warning "-3"]
-end
-
-module Char =
-struct
-  include Char
-
-  (* See comment by String.lowercase_ascii above. *)
-  let lowercase_ascii = lowercase [@ocaml.warning "-3"]
 end
 
 type element = unit