ATProto Personal Data Server storage for OCaml
fix(sqlite): rename Sqlite.create to Sqlite.v across callers
Update ocaml-pds and ocaml-sqlite test callers to match the
renamed constructor.
+2
-2
+1
-1
lib/pds.ml
+1
-1
lib/pds.ml
···
26
26
let v ~sw path ~did =
27
27
(* Create directory structure *)
28
28
(try Eio.Path.mkdirs ~exists_ok:true ~perm:0o755 path with Eio.Io _ -> ());
29
-
let db = Sqlite.create ~sw (db_path path) in
29
+
let db = Sqlite.v ~sw (db_path path) in
30
30
let blocks = Sqlite.Table.create db ~name:"blocks" in
31
31
let refs = Sqlite.Table.create db ~name:"refs" in
32
32
let meta = Sqlite.Table.create db ~name:"meta" in
+1
-1
test/test_sqlite_blockstore.ml
+1
-1
test/test_sqlite_blockstore.ml
···
10
10
(try Eio.Path.mkdirs ~exists_ok:true ~perm:0o755 path with Eio.Io _ -> ());
11
11
let name = Fmt.str "bs_%d.db" (Random.int 1_000_000) in
12
12
Eio.Switch.run @@ fun sw ->
13
-
let db = Sqlite.create ~sw Eio.Path.(path / name) in
13
+
let db = Sqlite.v ~sw Eio.Path.(path / name) in
14
14
let table = Sqlite.Table.create db ~name:"blocks" in
15
15
let bs = Pds.Sqlite_blockstore.v table in
16
16
Fun.protect ~finally:(fun () -> Sqlite.close db) (fun () -> f bs)