objective categorical abstract machine language personal data server
Clarify clear_blocks -> clear_mst
+4
-4
+1
-1
pegasus/lib/repository.ml
+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
+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 *)