ogui branch
This commit is contained in:
@ -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 ->
|
||||||
|
|||||||
Reference in New Issue
Block a user