disable eio_linux warnings

mirage · Feb 1, 2024 · 419f085 · 419f085
1 parent 6894161
commit 419f085
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/examples/plugin/plugin.ml b/examples/plugin/plugin.ml
@@ -40,6 +40,13 @@ module Store = Irmin_mem.Make (Schema)
 
 let store = Resolver.Store.v Irmin_mem.Conf.spec (module Store)
 
+(* disable eio_linux warnings *)
+let () =
+  List.iter (fun src ->
+      if Logs.Src.name src = "eio_linux" then
+        Logs.Src.set_level src (Some Error))
+  @@ Logs.Src.list ()
+
 let () =
   Eio_main.run @@ fun env ->
   Irmin_pack_unix.Io.set_env (Eio.Stdenv.fs env);