Persistent store with Git semantics: lazy reads, delayed writes, content-addressing
irmin: migrate test_schema and test_irmin_tar to Json.Value API
Same rewrite as the irmin/lib json and oci backends — the old
[Json.to_string Json.t] / [Json.of_string Json.t] codec form is gone;
use the infallible generic-value helpers in [Json.Value] instead.
+4
-8
+2
-4
test/test_irmin_tar.ml
+2
-4
test/test_irmin_tar.ml
···
93
93
let json_parse : S.dec =
94
94
fun data ->
95
95
let nv (type a) (n : a Json.node) : a = fst n in
96
-
let enc c =
97
-
match Json.to_string Json.Codec.Value.t c with Ok s -> s | Error _ -> ""
98
-
in
99
-
match Json.of_string Json.Codec.Value.t data with
96
+
let enc = Json.Value.to_string in
97
+
match Json.Value.of_string data with
100
98
| Ok (Json.Object obj) ->
101
99
S.Named
102
100
(List.map (fun ((n, c) : Json.mem) -> (nv n, `Inline (enc c))) (nv obj))
+2
-4
test/test_schema.ml
+2
-4
test/test_schema.ml
···
45
45
46
46
let json_parse : S.dec =
47
47
fun data ->
48
-
let enc c =
49
-
match Json.to_string Json.Codec.Value.t c with Ok s -> s | Error _ -> ""
50
-
in
51
-
match Json.of_string Json.Codec.Value.t data with
48
+
let enc = Json.Value.to_string in
49
+
match Json.Value.of_string data with
52
50
| Ok (Json.Object obj) ->
53
51
S.Named
54
52
(List.map