Commits

Anonymous committed 7b9391b

+ register_printer for ECall

Comments (0)

Files changed (1)

 
     exception ECall of call_resp_error;
 
+    value () = Printexc.register_printer
+      (fun
+       [ ECall (`Exn_string str) -> Some ("parvel call exception: " ^ str)
+       | _ -> None
+       ]
+      )
+    ;
+
     value io_of_call_resp = fun
       [ `Ok o -> IO.return o
       | `Error e -> IO.error (ECall e)