ogui branch

This commit is contained in:
cqc
2024-05-22 15:08:19 -05:00
parent 553d5fbd55
commit c7d9d03670

View File

@ -27,7 +27,7 @@ module Store = struct
let init_default upstream_url : Sync.db Lwt.t = let init_default upstream_url : Sync.db Lwt.t =
S.Repo.v (Irmin_git.Conf.init "../rootstore") >>= fun repo -> 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 -> S.remote upstream_url >>= fun upstream ->
(* (try Sync.pull_exn t upstream `Set >>= fun _ -> Lwt.return_unit (* (try Sync.pull_exn t upstream `Set >>= fun _ -> Lwt.return_unit
with Invalid_argument a -> with Invalid_argument a ->