simon/linol
1
0
Fork 0
mirror of https://github.com/c-cube/linol.git synced 2025-12-06 11:15:46 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

feat: add catch-all method for unhandled notifications

Browse source
This commit is contained in:
Simon Cruanes 2021-03-24 17:59:51 -04:00
parent 72dc0a02c3
commit 13aec968c2
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/linol.ml
View file

@ -80,7 +80,7 @@ module Make(IO : IO) = struct
try Some (Hashtbl.find docs uri) try Some (Hashtbl.find docs uri)
with Not_found -> None with Not_found -> None
(** Overload to process other requests *) (** Override to process other requests *)
method on_request_unhandled method on_request_unhandled
: type r. r Lsp.Client_request.t -> r IO.t : type r. r Lsp.Client_request.t -> r IO.t
= fun _r -> = fun _r ->
@ -177,6 +177,11 @@ module Make(IO : IO) = struct
new_content:string -> new_content:string ->
unit IO.t unit IO.t
(** Override to handle unprocessed notifications *)
method on_notification_unhandled
~notify_back:_ (_n:Lsp.Client_notification.t) : unit IO.t =
IO.return ()
method on_notification method on_notification
~notify_back (n:Lsp.Client_notification.t) : unit IO.t = ~notify_back (n:Lsp.Client_notification.t) : unit IO.t =
let open Lsp.Types in let open Lsp.Types in
@ -229,7 +234,7 @@ module Make(IO : IO) = struct
| Lsp.Client_notification.Unknown_notification _ | Lsp.Client_notification.Unknown_notification _
| Lsp.Client_notification.CancelRequest _ | Lsp.Client_notification.CancelRequest _
-> ->
IO.return () (* TODO: method for each of these *) self#on_notification_unhandled ~notify_back n
end end
end end
end end