RFC6901 JSON Pointer implementation in OCaml using jsont
pp-error
+6
-2
+6
-2
doc/tutorial.md
+6
-2
doc/tutorial.md
···
12
12
# open Jsont_pointer;;
13
13
# #install_printer Jsont_pointer_top.printer;;
14
14
# #install_printer Jsont_pointer_top.json_printer;;
15
+
# #install_printer Jsont_pointer_top.error_printer;;
15
16
# let parse_json s =
16
17
match Jsont_bytesrw.decode_string Jsont.json s with
17
18
| Ok json -> json
···
129
130
130
131
```ocaml
131
132
# of_string "foo";;
132
-
Exception: Jsont.Error ([], <abstr>, <abstr>).
133
+
Exception:
134
+
Jsont.Error Invalid JSON Pointer: must be empty or start with '/': foo.
133
135
```
134
136
135
137
The RFC is strict: non-empty pointers MUST start with `/`.
···
273
275
274
276
```ocaml
275
277
# get_result (of_string "/nonexistent") rfc_example;;
276
-
- : (Jsont.json, Jsont.Error.t) result = Error ([], <abstr>, <abstr>)
278
+
- : (Jsont.json, Jsont.Error.t) result =
279
+
Error JSON Pointer: member 'nonexistent' not found
280
+
File "-":
277
281
# find (of_string "/nonexistent") rfc_example;;
278
282
- : Jsont.json option = None
279
283
```