this repo has no description
Fix warning after upgrade of js of ocaml
+2
-3
+2
-3
src/worker/worker.ml
+2
-3
src/worker/worker.ml
···
14
14
Js.Opt.case
15
15
(File.CoerceTo.arrayBuffer x##.response)
16
16
(fun () ->
17
-
Firebug.console##log (Js.string "Failed to receive file");
17
+
Js_of_ocaml.Console.console##log (Js.string "Failed to receive file");
18
18
None)
19
19
(fun b -> Some (Typed_array.String.of_arrayBuffer b))
20
20
| _ -> None
···
35
35
36
36
let fetch =
37
37
(fun filename ->
38
-
let open Option.Infix in
39
38
let url = Filename.concat dcs.Protocol.dcs_url filename in
40
39
sync_get url)
41
40
in
···
234
233
in
235
234
let errors =
236
235
dispatch source query
237
-
|> List.map ~f:(fun (Location.{kind; main=_ ; sub; source} as error) ->
236
+
|> List.map ~f:(fun (Location.{kind; main=_ ; sub; source; _} as error) ->
238
237
let of_sub sub =
239
238
Location.print_sub_msg Format.str_formatter sub;
240
239
String.trim (Format.flush_str_formatter ())