chore: update lev

Signed-off-by: Rudi Grinberg <[email protected]>

ps-id: f4660663-d355-4955-b1ef-af05b568d607

Author: rgrinberg

CHANGES.md

@@ -1,3 +1,9 @@
+# 1.12.1
+
+## Fixes
+
+- Fix preprocessing, ppx, and reason support (#735 fixes #696, #706)
+
 # 1.12.0
 
 ## Features

lsp-fiber/test/lsp_fiber_test.ml

@@ -39,7 +39,7 @@ let test make_client make_server =
     let+ () = Fiber.fork_and_join_unit server client in
     print_endline "Successful termination of test"
   in
-  Lev_fiber.run (Lev.Loop.default ()) ~f:run;
+  Lev_fiber.run (Lev.Loop.create ()) ~f:run;
   print_endline "[TEST] finished"
 
 let json_pp = Yojson.Safe.pretty_print ~std:false

ocaml-lsp-server/src/ocaml_lsp_server.ml

@@ -1114,4 +1114,4 @@ let start () =
 let run ~read_dot_merlin () =
   Merlin_config.should_read_dot_merlin := read_dot_merlin;
   Unix.putenv "__MERLIN_MASTER_PID" (string_of_int (Unix.getpid ()));
-  Lev_fiber.run (Lev.Loop.default ()) ~f:start
+  Lev_fiber.run (Lev.Loop.create ()) ~f:start

ocaml-lsp-server/test/e2e-new/start_stop.ml

@@ -60,7 +60,7 @@ let%expect_test "start/stop" =
   in
   Lev_fiber.run
     ~f:(fun () -> Fiber.all_concurrently_unit [ init; waitpid ])
-    (Lev.Loop.default ());
+    (Lev.Loop.create ());
   [%expect
     {|
       client: server initialized with: