stuff

store.ml

@@ -21,4 +21,8 @@ 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.remote upstream_url >>= fun upstream ->
-  Sync.pull_exn t upstream `Set >>= fun _ -> Lwt.return t
+  (try Sync.pull_exn t upstream `Set >>= fun _ -> Lwt.return_unit
+   with Invalid_argument a ->
+     F.epr "Sync.pull_exn raised Invalid_argument(%s)" a;
+     Lwt.return_unit)
+  >>= fun () -> Lwt.return t