futur.blue / pegasus
objective categorical abstract machine language personal data server
fork atom

uh oh

futur.blue 3386a09e 49334fff

verified
+1
unified split
+1
pegasus/lib/repository.ml
··· 402 402 | None -> 403 403 Lwt.return_unit 404 404 in 405 + let%lwt () = User_store.delete_record t.db path in 405 406 block_map := String_map.remove path !block_map ; 406 407 commit_ops := 407 408 !commit_ops @ [{action= `Delete; path; cid= None; prev= cid}] ;