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

reexpose Req_id

Browse source
This commit is contained in:
Simon Cruanes 2021-04-23 16:41:50 -04:00
parent 1668e9938a
commit 7dd2ce0cd0
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/server.ml
View file

@ -9,9 +9,13 @@ type nonrec doc_state = {
content: string;
}
(** {2 Request ID}
unique ID of a request, used by JSONRPC to map each request to its reply. *)
module Req_id = struct
type t = Jsonrpc.Id.t
(** String representation of the ID *)
let to_string : t -> string = function
| `String s -> s
| `Int i -> string_of_int i
@ -25,6 +29,7 @@ module Make(IO : IO) = struct
module Range = Range
module Diagnostic = Diagnostic
module DiagnosticSeverity = DiagnosticSeverity
module Req_id = Req_id
(** The server baseclass *)
class virtual base_server = object