From 5b930169066f32e0789d95f863decbd87eaebed8 Mon Sep 17 00:00:00 2001
From: Alessandro <alessandro.strada@gmail.com>
Date: Sat, 28 Oct 2023 17:06:16 +0200
Subject: [PATCH] Support OCaml 5

Use latest gapi-ocaml version
---
 src/dune    | 3 ++-
 src/mime.ml | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/dune b/src/dune
index ea27585..81427ce 100644
--- a/src/dune
+++ b/src/dune
@@ -2,4 +2,5 @@
  (name google_drive_ocamlfuse)
  (wrapped false)
  (flags :standard -w -3-27-32-58)
- (libraries cryptokit extlib gapi-ocaml ocamlfuse sqlite3 threads camlidl tiny_httpd))
+ (libraries cryptokit extlib gapi-ocaml gapi-ocaml.netsys-local ocamlfuse
+            sqlite3 threads camlidl tiny_httpd))
diff --git a/src/mime.ml b/src/mime.ml
index 35eee9c..a220acc 100644
--- a/src/mime.ml
+++ b/src/mime.ml
@@ -2,7 +2,7 @@ open GapiUtils.Infix
 
 let map_filename_to_mime_type filename =
   let extension =
-    try GapiUtils.string_after_char '.' filename |> String.lowercase
+    try GapiUtils.string_after_char '.' filename |> String.lowercase_ascii
     with Not_found -> ""
   in
   match extension with