simon/linol
1
0
Fork 0
mirror of https://github.com/c-cube/linol.git synced 2026-01-28 12:24:52 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

some logging

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

2
src/jsonrpc2.ml
View file

@ -167,6 +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);
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
@ -219,6 +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);
let r = let r =
Jsonrpc.Response.error id Jsonrpc.Response.error id
(Jsonrpc.Response.Error.make (Jsonrpc.Response.Error.make