objective categorical abstract machine language personal data server
65
fork

Configure Feed

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

Clarify clear_blocks -> clear_mst

futurGH 64f27347 952071b0

+4 -4
+1 -1
pegasus/lib/repository.ml
··· 399 399 writes 400 400 |> Lwt.all 401 401 in 402 - let%lwt () = User_store.clear_blocks t.db in 402 + let%lwt () = User_store.clear_mst t.db in 403 403 let%lwt {root; _} = Mst.of_assoc t.db (StringMap.bindings !block_map) in 404 404 let%lwt commit = put_commit t root ~previous:(Some commit) in 405 405 Lwt.return {commit; results}
+3 -3
pegasus/lib/user_store.ml
··· 117 117 {sql| DELETE FROM mst WHERE cid IN (%list{%CID{cids}}) RETURNING @CID{cid} |sql}] 118 118 ~cids 119 119 120 - let clear_blocks = [%rapper execute {sql| DELETE FROM mst |sql}] () 120 + let clear_mst = [%rapper execute {sql| DELETE FROM mst |sql}] () 121 121 122 122 (* repo commit *) 123 123 let get_commit = ··· 312 312 let delete_many conn cids : (int, exn) Lwt_result.t = 313 313 Queries.delete_blocks cids conn >$! List.length >>= Lwt.return_ok 314 314 315 - let clear_blocks conn : unit Lwt.t = 316 - let$! () = Queries.clear_blocks conn in 315 + let clear_mst conn : unit Lwt.t = 316 + let$! () = Queries.clear_mst conn in 317 317 Lwt.return_unit 318 318 319 319 (* repo commit *)