this repo has no description
Format
+19
-7
+6
.vscode/settings.json
+6
.vscode/settings.json
+10
-4
example/example.ml
+10
-4
example/example.ml
···
16
16
Option.iter (fun s -> log ("stderr: " ^ s)) o.stderr;
17
17
Option.iter (fun s -> log ("sharp_ppf: " ^ s)) o.sharp_ppf;
18
18
Option.iter (fun s -> log ("caml_ppf: " ^ s)) o.caml_ppf;
19
-
let strloc (line,col) =
19
+
let strloc (line, col) =
20
20
"(" ^ string_of_int line ^ "," ^ string_of_int col ^ ")"
21
21
in
22
-
Option.iter (fun h ->
23
-
let open Toplevel_api_gen in
24
-
log ("highlight " ^ strloc (h.line1, h.col1) ^ " to " ^ strloc (h.line2, h.col2))) o.highlight
22
+
Option.iter
23
+
(fun h ->
24
+
let open Toplevel_api_gen in
25
+
log
26
+
("highlight "
27
+
^ strloc (h.line1, h.col1)
28
+
^ " to "
29
+
^ strloc (h.line2, h.col2)))
30
+
o.highlight
25
31
26
32
let _ =
27
33
let ( let* ) = Lwt_result.bind in
+1
-3
idl/toplevel_api.ml
+1
-3
idl/toplevel_api.ml
···
33
33
[@@deriving rpcty]
34
34
35
35
type init_libs = { cmi_urls : string list; cmas : cma list } [@@deriving rpcty]
36
-
37
36
type err = InternalError of string [@@deriving rpcty]
38
37
39
38
module E = Idl.Error.Make (struct
···
90
89
(unit_p @-> returning exec_result_p err)
91
90
92
91
let typecheck =
93
-
declare
94
-
"typecheck"
92
+
declare "typecheck"
95
93
[ "Typecheck a phrase without actually executing it." ]
96
94
(phrase_p @-> returning typecheck_result_p err)
97
95
+1
js_top_worker-client.opam
+1
js_top_worker-client.opam