loading from rootstore

2024-05-22 15:17:11 -05:00
parent 986abc223c
commit cd79cd2537
5 changed files with 9 additions and 6 deletions
--- a/store.ml
+++ b/store.ml
@ -19,7 +19,7 @@ let test_populate () : t Lwt.t =

 let init_default upstream_url : Sync.db Lwt.t =
  S.Repo.v (Irmin_git.Conf.init "../rootstore") >>= fun repo ->
-  S.of_branch repo "lablgtk" >>= fun t ->
+  S.of_branch repo "ogui" >>= fun t ->
  S.remote upstream_url >>= fun upstream ->
  (* (try Sync.pull_exn t upstream `Set >>= fun _ -> Lwt.return_unit
      with Invalid_argument a ->