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

fix compilation

Browse source
This commit is contained in:
Simon Cruanes 2021-06-01 18:37:54 -04:00
parent 754ecac307
commit 8ec409dda0
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/jsonrpc2.ml
View file

@ -167,7 +167,7 @@ module Make(IO : IO)
IO.catch f IO.catch f
(fun e -> (fun e ->
let message = spf "%s\n%s" (Printexc.to_string e) (Printexc.get_backtrace()) in let message = spf "%s\n%s" (Printexc.to_string e) (Printexc.get_backtrace()) in
Log.err (fun k->k "error: %s" msg); Log.err (fun k->k "error: %s" message);
let r = Jsonrpc.Response.error id let r = Jsonrpc.Response.error id
(Jsonrpc.Response.Error.make (Jsonrpc.Response.Error.make
~code:Jsonrpc.Response.Error.Code.InternalError ~code:Jsonrpc.Response.Error.Code.InternalError
@ -220,7 +220,7 @@ module Make(IO : IO)
end) end)
(fun e -> (fun e ->
let message = spf "%s\n%s" (Printexc.to_string e) (Printexc.get_backtrace()) in let message = spf "%s\n%s" (Printexc.to_string e) (Printexc.get_backtrace()) in
Log.err (fun k->k "error: %s" msg); Log.err (fun k->k "error: %s" message);
let r = let r =
Jsonrpc.Response.error id Jsonrpc.Response.error id
(Jsonrpc.Response.Error.make (Jsonrpc.Response.Error.make

2
src/server.ml
View file

@ -373,7 +373,7 @@ module Make(IO : IO) = struct
| None -> | None ->
(* WTF vscode. Well let's try and deal with it. *) (* WTF vscode. Well let's try and deal with it. *)
Log.err (fun k->k "unknown document: '%s'" doc.uri); Log.err (fun k->k "unknown document: '%s'" doc.uri);
let version = CCOpt.get_or ~default:0 doc.version in let version = match doc.version with Some x->x | None -> 0 in
let languageId = "" in (* FIXME*) let languageId = "" in (* FIXME*)
Lsp.Text_document.make Lsp.Text_document.make