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

try to print backtraces when handlers fail

Browse source
This commit is contained in:
Simon Cruanes 2021-04-08 19:28:49 -04:00
parent e5cb0a331b
commit b7e89f67e4
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/jsonrpc2.ml
View file

@ -171,10 +171,11 @@ module Make(IO : IO)
let protect ~id f = let protect ~id f =
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 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
~message:(Printexc.to_string e) ()) ~message ())
in in
send_response self r) send_response self r)
in in
@ -222,11 +223,12 @@ module Make(IO : IO)
IO.failwith (spf "cannot decode request: %s" e) IO.failwith (spf "cannot decode request: %s" e)
end) end)
(fun e -> (fun e ->
let message = spf "%s\n%s" (Printexc.to_string e) (Printexc.get_backtrace()) in
let r = let r =
Jsonrpc.Response.error id Jsonrpc.Response.error id
(Jsonrpc.Response.Error.make (Jsonrpc.Response.Error.make
~code:Jsonrpc.Response.Error.Code.InternalError ~code:Jsonrpc.Response.Error.Code.InternalError
~message:(Printexc.to_string e) ()) ~message ())
in in
send_response self r) send_response self r)
in in