code
Clone this repository
https://tangled.org/anil.recoil.org/ocaml-mcp
git@git.recoil.org:anil.recoil.org/ocaml-mcp
For self-hosted knots, clone URLs may differ based on your setup.
The old one did not allow customization, and using logs will also make this behave like its dependencies.
Signed-off-by: Marcello Seri <marcello.seri@gmail.com>
Signed-off-by: Marcello Seri <marcello.seri@gmail.com>
With yojson 3.0.0 fails with
```
File "vendor/ocaml-mcp/lib/mcp_server.ml", line 303, characters 43-47:
303 | let text = Yojson.Safe.to_string json in
^^^^
Error: The value json has type
[> `Assoc of (string * [> `Bool of 'a | `List of Json.t list ]) list
]
but an expression was expected of type
Yojson.Safe.t =
[ `Assoc of (string * Yojson.Safe.t) list
| `Bool of bool
| `Float of float
| `Int of int
| `Intlit of string
| `List of Yojson.Safe.t list
| `Null
| `String of string ]
Type [> `Bool of 'a | `List of Json.t list ]
is not compatible with type
Yojson.Safe.t =
[ `Assoc of (string * Yojson.Safe.t) list
| `Bool of bool
| `Float of float
| `Int of int
| `Intlit of string
| `List of Yojson.Safe.t list
| `Null
| `String of string ]
Type
Json.t =
[ `Assoc of (string * Json.t) list
| `Bool of bool
| `Float of float
| `Int of int
| `Intlit of string
| `List of Json.t list
| `Null
| `String of string
| `Tuple of Json.t list
| `Variant of string * Json.t option ]
is not compatible with type
Yojson.Safe.t =
[ `Assoc of (string * Yojson.Safe.t) list
| `Bool of bool
| `Float of float
| `Int of int
| `Intlit of string
| `List of Yojson.Safe.t list
| `Null
| `String of string ]
The second variant type does not allow tag(s) `Tuple, `Variant
```
(ocaml-lsp-server already had this upper bound so you can notice the
issue only when it is not present)
Signed-off-by: Marcello Seri <marcello.seri@gmail.com>