this repo has no description
Allow remote js opam
+10
+10
lib/jslib.ml
+10
lib/jslib.ml
···
5
5
6
6
let sync_get url =
7
7
let open Js_of_ocaml in
8
+
let global_rel_url =
9
+
let x : Js.js_string Js.t option = Js.Unsafe.js_expr "globalThis.__global_rel_url" |> Js.Optdef.to_option in
10
+
Option.map Js.to_string x
11
+
in
12
+
let url =
13
+
match global_rel_url with
14
+
| Some rel -> Filename.concat rel url
15
+
| None -> url
16
+
in
17
+
Console.console##log (Js.string ("Fetching: " ^ url));
8
18
let x = XmlHttpRequest.create () in
9
19
x##.responseType := Js.string "arraybuffer";
10
20
x##_open (Js.string "GET") (Js.string url) Js._false;