1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
open Import
let exec () =
let open Fiber.O in
let where = Rpc_common.active_server_exn () in
let module Client = Dune_rpc_client.Client in
let+ errors =
let* connect = Client.Connection.connect_exn where in
Dune_rpc_impl.Client.client
connect
(Dune_rpc_private.Initialize.Request.create
~id:(Dune_rpc_private.Id.make (Sexp.Atom "diagnostics_cmd")))
~f:(fun cli ->
let* decl =
Client.Versioned.prepare_request cli Dune_rpc_private.Public.Request.diagnostics
in
match decl with
| Error e -> raise (Dune_rpc_private.Version_error.E e)
| Ok decl -> Client.request cli decl ())
in
match errors with
| Ok errors ->
List.iter errors ~f:(fun err ->
Console.print_user_message (Dune_rpc.Diagnostic.to_user_message err))
| Error e -> Rpc_common.raise_rpc_error e
;;
let info =
let doc = "Fetch and return errors from the current build." in
Cmd.info "diagnostics" ~doc
;;
let term =
let+ (builder : Common.Builder.t) = Common.Builder.term in
Rpc_common.client_term builder exec
;;
let command = Cmd.v info term
|
