ogui branch
This commit is contained in:
@ -27,7 +27,7 @@ module Store = struct
|
||||
|
||||
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 ->
|
||||
|
||||
Reference in New Issue
Block a user