blob: d213b66dff809689ab5fa05ed323cd66e9a4aeb3 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Make (S : Abstract.Storage.STORAGE) = struct
module BM = BranchManager.Make (S)
let initialize conn =
let open Utilities.Result in
let open Protocols in
let root = Namespace.make () in
let registry = Registry.from root |> Option.get in
let* branch_manager = BM.make conn "rnt-head" in
let* _ = Registry.update registry "branch" None (Some branch_manager) in
Ok root
end
|
