gazagnaire.org / ocaml-pds
ATProto Personal Data Server storage for OCaml
4
fork

Configure Feed

Select the types of activity you want to include in your feed.

fix(lint): update claude-skills, sle bind, and sqlite across linter changes

Thomas Gazagnaire 220b9161 ef3c5254

+3 -3
+2 -2
lib/pds.ml
··· 55 55 let blockstore = Sqlite_blockstore.v blocks in 56 56 (* Read DID from metadata *) 57 57 let did = 58 - match Sqlite.Table.get meta "did" with 58 + match Sqlite.Table.find meta "did" with 59 59 | Some s -> Atp.Did.of_string_exn s 60 60 | None -> failwith "PDS metadata missing DID" 61 61 in ··· 72 72 73 73 (* Refs *) 74 74 75 - let ref t name = Option.map Atp.Cid.of_string (Sqlite.Table.get t.refs name) 75 + let ref t name = Option.map Atp.Cid.of_string (Sqlite.Table.find t.refs name) 76 76 let set_ref t name cid = Sqlite.Table.put t.refs name (Atp.Cid.to_string cid) 77 77 let delete_ref t name = Sqlite.Table.delete t.refs name 78 78
+1 -1
lib/sqlite_blockstore.ml
··· 9 9 object (self) 10 10 method get cid = 11 11 let key = Atp.Cid.to_string cid in 12 - Sqlite.Table.get blocks key 12 + Sqlite.Table.find blocks key 13 13 14 14 method get_exn cid = 15 15 match self#get cid with