Fix the errors in the docs. This relies on the latest commits on branch odoc-v3-rules-3.21 of my fork of dune.
+3
dune-project
+3
dune-project
+6
index.mld
+6
index.mld
+2
-1
ocaml-bytesrw-eio/dune-project
+2
-1
ocaml-bytesrw-eio/dune-project
+2
-1
ocaml-cff/dune-project
+2
-1
ocaml-cff/dune-project
+3
ocaml-claudeio/lib/claude.mli
+3
ocaml-claudeio/lib/claude.mli
···
210
210
module Model = Model
211
211
(** Claude AI model identifiers. *)
212
212
213
+
module Structured_output = Structured_output
214
+
(** Structured output configuration using JSON Schema. *)
215
+
213
216
(** {1 Custom Tools (MCP)}
214
217
215
218
These modules enable custom tool definitions that run in-process via MCP
+4
-4
ocaml-claudeio/lib/client.mli
+4
-4
ocaml-claudeio/lib/client.mli
···
36
36
{2 Message Flow}
37
37
38
38
1. Create a client with {!create} 2. Send messages with {!query} or
39
-
{!send_message} 3. Receive responses with {!receive} or {!receive_all} 4.
39
+
{!Advanced.send_message} 3. Receive responses with {!receive} or {!receive_all} 4.
40
40
Continue multi-turn conversations by sending more messages 5. Client
41
41
automatically cleans up when the switch exits
42
42
···
304
304
(** [receive_raw t] returns a lazy sequence of raw incoming messages.
305
305
306
306
This includes all message types before Response conversion:
307
-
- {!Incoming.Message} - Regular messages
308
-
- {!Incoming.Control_response} - Control responses (normally handled
307
+
- {!Proto.Incoming.t.constructor-Message} - Regular messages
308
+
- {!Proto.Incoming.t.constructor-Control_response} - Control responses (normally handled
309
309
internally)
310
-
- {!Incoming.Control_request} - Control requests (normally handled
310
+
- {!Proto.Incoming.t.constructor-Control_request} - Control requests (normally handled
311
311
internally)
312
312
313
313
Most users should use {!receive} or {!run} instead. *)
+1
-1
ocaml-claudeio/proto/structured_output.mli
+1
-1
ocaml-claudeio/proto/structured_output.mli
···
11
11
the specified JSON format, validated against the provided schema.
12
12
13
13
This is the protocol-level module. For the high-level API with logging and
14
-
additional features, see {!Claudeio.Structured_output}. *)
14
+
additional features, see {!Claude.Structured_output}. *)
15
15
16
16
(** {1 Output Format Configuration} *)
17
17
+18
-18
ocaml-json-pointer/src/json_pointer.mli
+18
-18
ocaml-json-pointer/src/json_pointer.mli
···
77
77
(** [unescape s] unescapes a JSON Pointer reference token.
78
78
Specifically, [~1] becomes [/] and [~0] becomes [~].
79
79
80
-
@raise Jsont.Error.Error if [s] contains invalid escape sequences
80
+
@raise Jsont.exception-Error if [s] contains invalid escape sequences
81
81
(a [~] not followed by [0] or [1]). *)
82
82
end
83
83
···
202
202
203
203
val to_nav_exn : any -> nav t
204
204
(** [to_nav_exn p] returns the navigation pointer if [p] is one.
205
-
@raise Jsont.Error.Error if [p] is an append pointer. *)
205
+
@raise Jsont.exception-Error if [p] is an append pointer. *)
206
206
207
207
(** {2:parsing Parsing} *)
208
208
···
217
217
with [/]. Each segment between [/] characters is unescaped as a
218
218
reference token.
219
219
220
-
@raise Jsont.Error.Error if [s] has invalid syntax:
220
+
@raise Jsont.exception-Error if [s] has invalid syntax:
221
221
- Non-empty string not starting with [/]
222
222
- Invalid escape sequence ([~] not followed by [0] or [1])
223
223
- [-] appears in non-final position *)
···
230
230
differently, or when you need a typed pointer for operations that
231
231
require a specific kind.
232
232
233
-
@raise Jsont.Error.Error if [s] has invalid syntax. *)
233
+
@raise Jsont.exception-Error if [s] has invalid syntax. *)
234
234
235
235
val of_string_nav : string -> nav t
236
236
(** [of_string_nav s] parses a JSON Pointer that must not contain [-].
···
238
238
Use this when you need a {!nav} pointer for retrieval operations
239
239
like {!get} or {!find}.
240
240
241
-
@raise Jsont.Error.Error if [s] has invalid syntax or contains [-]. *)
241
+
@raise Jsont.exception-Error if [s] has invalid syntax or contains [-]. *)
242
242
243
243
val of_string_result : string -> (any, string) result
244
244
(** [of_string_result s] is like {!of_string} but returns a result
···
251
251
according to {{:https://www.rfc-editor.org/rfc/rfc3986}RFC 3986}.
252
252
The leading [#] should {b not} be included in [s].
253
253
254
-
@raise Jsont.Error.Error on invalid syntax or invalid percent-encoding. *)
254
+
@raise Jsont.exception-Error on invalid syntax or invalid percent-encoding. *)
255
255
256
256
val of_uri_fragment_nav : string -> nav t
257
257
(** [of_uri_fragment_nav s] is like {!of_uri_fragment} but requires
258
258
the pointer to not contain [-].
259
259
260
-
@raise Jsont.Error.Error if invalid or contains [-]. *)
260
+
@raise Jsont.exception-Error if invalid or contains [-]. *)
261
261
262
262
val of_uri_fragment_result : string -> (any, string) result
263
263
(** [of_uri_fragment_result s] is like {!of_uri_fragment} but returns
···
317
317
val get : nav t -> Jsont.json -> Jsont.json
318
318
(** [get p json] retrieves the value at pointer [p] in [json].
319
319
320
-
@raise Jsont.Error.Error if:
320
+
@raise Jsont.exception-Error if:
321
321
- The pointer references a nonexistent object member
322
322
- The pointer references an out-of-bounds array index
323
323
- An index type doesn't match the JSON value (e.g., [Nth]
···
353
353
This accepts {!type:any} pointers directly from {!of_string}:
354
354
{[set (of_string "/tasks/-") json ~value:(Jsont.Json.string "new task")]}
355
355
356
-
@raise Jsont.Error.Error if the pointer doesn't resolve to an existing
356
+
@raise Jsont.exception-Error if the pointer doesn't resolve to an existing
357
357
location (except for {!append} pointers on arrays). *)
358
358
359
359
val add : any -> Jsont.json -> value:Jsont.json -> Jsont.json
···
368
368
valid (0 to length inclusive).}
369
369
{- For {!append} pointers: Appends [value] to the array.}}
370
370
371
-
@raise Jsont.Error.Error if:
371
+
@raise Jsont.exception-Error if:
372
372
- The parent of the target location doesn't exist
373
373
- An array index is out of bounds (except for {!append} pointers)
374
374
- The parent is not an object or array *)
···
379
379
For objects, removes the member. For arrays, removes the element
380
380
and shifts subsequent elements.
381
381
382
-
@raise Jsont.Error.Error if:
382
+
@raise Jsont.exception-Error if:
383
383
- [p] is the root (cannot remove the root)
384
384
- The pointer doesn't resolve to an existing value *)
385
385
···
388
388
389
389
Unlike {!add}, this requires the target to exist.
390
390
391
-
@raise Jsont.Error.Error if the pointer doesn't resolve to an existing value. *)
391
+
@raise Jsont.exception-Error if the pointer doesn't resolve to an existing value. *)
392
392
393
393
val move : from:nav t -> path:any -> Jsont.json -> Jsont.json
394
394
(** [move ~from ~path json] moves the value from [from] to [path].
···
396
396
This is equivalent to {!remove} at [from] followed by {!add}
397
397
at [path] with the removed value.
398
398
399
-
@raise Jsont.Error.Error if:
399
+
@raise Jsont.exception-Error if:
400
400
- [from] doesn't resolve to a value
401
401
- [path] is a proper prefix of [from] (would create a cycle) *)
402
402
···
406
406
This is equivalent to {!get} at [from] followed by {!add}
407
407
at [path] with the retrieved value.
408
408
409
-
@raise Jsont.Error.Error if [from] doesn't resolve to a value. *)
409
+
@raise Jsont.exception-Error if [from] doesn't resolve to a value. *)
410
410
411
411
val test : nav t -> Jsont.json -> expected:Jsont.json -> bool
412
412
(** [test p json ~expected] tests if the value at [p] equals [expected].
···
511
511
The syntax is the same as RFC 6901 JSON Pointer, except [*] is allowed
512
512
as a reference token for array mapping.
513
513
514
-
@raise Jsont.Error.Error if [s] has invalid syntax. *)
514
+
@raise Jsont.exception-Error if [s] has invalid syntax. *)
515
515
516
516
val of_string_result : string -> (t, string) result
517
517
(** [of_string_result s] is like {!of_string} but returns a result. *)
···
528
528
For [*] tokens on arrays, maps through all elements and collects results.
529
529
Results that are arrays are flattened into the output.
530
530
531
-
@raise Jsont.Error.Error if:
531
+
@raise Jsont.exception-Error if:
532
532
- A standard token doesn't resolve (member not found, index out of bounds)
533
533
- [*] is used on a non-array value
534
534
- [-] appears in the pointer (not supported in JMAP extended pointers) *)
···
561
561
(Jsont.list Jsont.string)
562
562
]}
563
563
564
-
@raise Jsont.Error.Error if the pointer fails to resolve (and no [absent])
564
+
@raise Jsont.exception-Error if the pointer fails to resolve (and no [absent])
565
565
or if decoding with [codec] fails. *)
566
566
567
567
val path_list : t -> 'a Jsont.t -> 'a list Jsont.t
···
576
576
Jmap.path (Jmap.of_string "/list/*/id") (Jsont.list Jsont.string)
577
577
]}
578
578
579
-
@raise Jsont.Error.Error if pointer resolution fails, the result is not an array,
579
+
@raise Jsont.exception-Error if pointer resolution fails, the result is not an array,
580
580
or any element fails to decode. *)
581
581
end
+1
-1
ocaml-tomlt/lib_jsont/tomlt_jsont.mli
+1
-1
ocaml-tomlt/lib_jsont/tomlt_jsont.mli
+2
-2
ocaml-tomlt/lib_unix/tomlt_unix.mli
+2
-2
ocaml-tomlt/lib_unix/tomlt_unix.mli
···
57
57
val of_channel : ?file:string -> in_channel -> Tomlt.Toml.t
58
58
(** [of_channel ic] reads and parses TOML from an input channel.
59
59
@param file Optional filename for error messages.
60
-
@raise Toml.Error.Error on parse errors. *)
60
+
@raise Tomlt.Toml.Error.exception-Error on parse errors. *)
61
61
62
62
val to_channel : out_channel -> Tomlt.Toml.t -> unit
63
63
(** [to_channel oc value] writes [value] as TOML to an output channel.
···
73
73
74
74
val decode_file_exn : 'a Tomlt.t -> string -> 'a
75
75
(** [decode_file_exn codec path] is like {!decode_file} but raises on errors.
76
-
@raise Toml.Error.Error on parse or decode errors.
76
+
@raise Tomlt.Toml.Error.exception-Error on parse or decode errors.
77
77
@raise Sys_error on file errors. *)
78
78
79
79
val encode_file : 'a Tomlt.t -> 'a -> string -> unit
History
1 round
0 comments
jon.recoil.org
submitted
#0
1 commit
expand
collapse
Fix errors in documentation, and add a toplevel index
merge conflicts detected
expand
collapse
expand
collapse
- .gitignore:1
- dune-project:51