console/oplevel
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

init.ml

Browse Source
This commit is contained in:
cqc
2024-02-19 16:41:11 -06:00
parent 2e6991f3dc
commit f46dc86c6a
6 changed files with 116 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
store.ml
View File

@ -355,7 +355,7 @@ let test_populate () : t Lwt.t =
>>= add [ "hello"; "daddy" ] "ily"
>>= add [ "beep"; "beep" ] "motherfucker"
let test_pull () : t Lwt.t =
let test_pull () : (Irmin.remote * Sync.db) Lwt.t =
(* test_populate ()*)
Firebug.console##log (Js.string "Nav.test_pull()\n");
S.Repo.v (Config.init "") >>= fun repo ->
@ -378,5 +378,5 @@ let test_pull () : t Lwt.t =
Firebug.console##log (Js.string "Nav.test_pull(5)\n");
Sync.pull_exn t upstream `Set >>= fun _ ->
Firebug.console##log (Js.string "Nav.test_pull(6)\n");
S.tree t
Lwt.return (upstream, t)
(* irmin/src/irmin/sync.ml: calls S.Remote.Backend.fetch *)