ATProto Personal Data Server storage for OCaml
claude: complete Err -> Error module rename across call sites
Follow up to the module rename: update the remaining callers that
still referenced [Err] (library [claude.ml{,i}], [client.ml], the test
driver [test.ml]), and fix one stray [^ e] string concatenation in
hermest's CLI that needed [Json.Error.to_string e] now that
[Json.of_string] yields a structured error.
+3
-6
+3
-6
lib/pds.ml
+3
-6
lib/pds.ml
···
4
4
---------------------------------------------------------------------------*)
5
5
6
6
type t = {
7
-
path : Eio.Fs.dir_ty Eio.Path.t;
8
7
db : Sqlite.t;
9
-
blocks : Sqlite.Table.t;
10
8
refs : Sqlite.Table.t;
11
-
meta : Sqlite.Table.t;
12
9
blobs : Blob_store.t;
13
10
blockstore : Atp.Blockstore.writable;
14
-
mutable did : Atp.Did.t;
11
+
did : Atp.Did.t;
15
12
}
16
13
17
14
(* Repository layout:
···
35
32
(* Store DID in metadata *)
36
33
Sqlite.Table.put meta "did" (Atp.Did.to_string did);
37
34
Sqlite.Table.put meta "version" "1";
38
-
let t = { path; db; blocks; refs; meta; blobs; blockstore; did } in
35
+
let t = { db; refs; blobs; blockstore; did } in
39
36
Eio.Switch.on_release sw (fun () -> Sqlite.close db);
40
37
t
41
38
···
59
56
| Some s -> Atp.Did.of_string_exn s
60
57
| None -> failwith "PDS metadata missing DID"
61
58
in
62
-
let t = { path; db; blocks; refs; meta; blobs; blockstore; did } in
59
+
let t = { db; refs; blobs; blockstore; did } in
63
60
Eio.Switch.on_release sw (fun () -> Sqlite.close db);
64
61
t
65
62