this repo has no description
Reduce logging
+4
-4
+2
-2
idl/js_top_worker_client_fut.ml
+2
-2
idl/js_top_worker_client_fut.ml
···
28
28
| Some (mv, outstanding_execution) ->
29
29
Brr.G.stop_timer outstanding_execution;
30
30
let msg = Message.Ev.data (Brr.Ev.as_type msg) in
31
-
Js_of_ocaml.Console.console##log (Js_of_ocaml.Js.string "Client received the following, to be converted to an OCaml string");
32
-
Js_of_ocaml.Console.console##log msg;
31
+
(* Js_of_ocaml.Console.console##log (Js_of_ocaml.Js.string "Client received the following, to be converted to an OCaml string"); *)
32
+
(* Js_of_ocaml.Console.console##log msg; *)
33
33
let msg = Js_of_ocaml.Js.to_string msg in
34
34
(* log (Printf.sprintf "Client received: %s" msg); *)
35
35
mv (Ok (Jsonrpc.response_of_string msg))
+2
-2
lib/worker.ml
+2
-2
lib/worker.ml
···
9
9
thread" keeping the page responsive. *)
10
10
11
11
let server process e =
12
-
Jslib.log "Worker received: %s" e;
12
+
(* Jslib.log "Worker received: %s" e; *)
13
13
let _, id, call = Jsonrpc.version_id_and_call_of_string e in
14
14
Impl.M.bind (process call) (fun response ->
15
15
let rtxt = Jsonrpc.string_of_response ~id response in
16
-
Jslib.log "Worker sending: %s" rtxt;
16
+
(* Jslib.log "Worker sending: %s" rtxt; *)
17
17
Js_of_ocaml.Worker.post_message (Js_of_ocaml.Js.string rtxt);
18
18
Impl.M.return ())
19
19