this repo has no description
x
+5
-5
+3
-3
lib/impl.ml
+3
-3
lib/impl.ml
···
295
295
dcs.dcs_toplevel_modules;
296
296
297
297
let new_load ~s ~old_loader ~allow_hidden ~unit_name =
298
-
Logs.info (fun m -> m "%s Loading: %s" s unit_name);
298
+
(* Logs.info (fun m -> m "%s Loading: %s" s unit_name); *)
299
299
let filename = filename_of_module unit_name in
300
300
301
301
let fs_name = Filename.(concat path filename) in
302
302
(* Check if it's already been downloaded. This will be the
303
303
case for all toplevel cmis. Also check whether we're supposed
304
304
to handle this cmi *)
305
-
if Sys.file_exists fs_name
305
+
(* if Sys.file_exists fs_name
306
306
then Logs.info (fun m -> m "Found: %s" fs_name)
307
-
else Logs.info (fun m -> m "No sign of %s locally" fs_name);
307
+
else Logs.info (fun m -> m "No sign of %s locally" fs_name); *)
308
308
if
309
309
(not (Sys.file_exists fs_name))
310
310
&& List.exists
+2
-2
lib/worker.ml
+2
-2
lib/worker.ml
···
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
···
96
96
let rpc_fn = Impl.IdlM.server Server.implementation in
97
97
Js_of_ocaml.Worker.set_onmessage (fun x ->
98
98
let s = Js_of_ocaml.Js.to_string x in
99
-
Logs.debug (fun m -> m "Worker received: %s" s);
99
+
Jslib.log "Worker received: %s" s;
100
100
ignore (server rpc_fn s));
101
101
Console.console##log (Js.string "All finished")
102
102
with e ->