diff --git a/example/template-eio/main.ml b/example/template-eio/main.ml index 25c834b1..4760a9b1 100644 --- a/example/template-eio/main.ml +++ b/example/template-eio/main.ml @@ -37,7 +37,7 @@ let diagnostics (_state : state_after_processing) : Lsp.Types.Diagnostic.t list so that users only need to override methods that they want the server to actually meaningfully interpret and respond to. *) -class lsp_server ~(sw: Eio.Switch.t) = +class lsp_server ~(sw : Eio.Switch.t) = object (self) inherit Linol_eio.Jsonrpc2.server diff --git a/src/eio/linol_eio.ml b/src/eio/linol_eio.ml index acd90614..009d70bc 100644 --- a/src/eio/linol_eio.ml +++ b/src/eio/linol_eio.ml @@ -54,12 +54,11 @@ end (** Spawn function. *) let spawn ~sw f = Eio.Fiber.fork ~sw (fun () -> - try - f () - with exn -> - Printf.eprintf "uncaught exception in `spawn`:\n%s\n%!" - (Printexc.to_string exn); - raise exn) + try f () + with exn -> + Printf.eprintf "uncaught exception in `spawn`:\n%s\n%!" + (Printexc.to_string exn); + raise exn) include Lsp.Types include IO_eio