jon.recoil.org
this repo has no description
1(* Simplest example *)
2open Js_of_ocaml
3module C = Js_top_worker_client_msg
4module Msg = Js_top_worker_message.Message
5
6let log s = Console.console##log (Js.string s)
7
8let _ =
9 let open Lwt.Infix in
10 let t = C.create ~timeout:10000000 "_opam/worker.js" in
11 let config : Msg.init_config =
12 { findlib_requires = []; stdlib_dcs = None; findlib_index = None }
13 in
14 C.init t config >>= fun () ->
15 C.errors t ~env_id:"default" "type xxxx = int;;\n" >>= fun _o ->
16 C.errors t ~env_id:"default" "type yyy = xxx;;\n" >>= fun _o2 ->
17 C.errors t ~env_id:"default" "type xxx = int;;\n" >>= fun _o ->
18 C.errors t ~env_id:"default" "type yyy = xxx (* With a comment *);;\n" >>= fun _o2 ->
19 Lwt.return ()