Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
forgot close
  • Loading branch information
Romain Slootmaekers committed Feb 4, 2011
1 parent 72a1a9b commit c25d019
Showing 1 changed file with 3 additions and 2 deletions.
5 changes: 3 additions & 2 deletions src/client/clone.ml
Expand Up @@ -74,7 +74,8 @@ module Clone = struct
Local_store.make_local_store db_name >>= fun store ->
Tlc2.make_tlc2 tlog_dir >>= fun tlc ->
tlc # get_last_i () >>= fun too_far_i ->
Catchup.catchup_store node_name store tlc too_far_i
Catchup.catchup_store node_name store tlc too_far_i >>= fun _ ->
store # close ()

let clone_node ip port ~tlog_dir ~store_dir ~node_name =
let logger = Lwt_log.channel
Expand All @@ -88,7 +89,7 @@ module Clone = struct
let t =
let sa = Network.make_address ip port in
Lwt_io.with_connection sa (receive_files ~target_dir:tlog_dir) >>= fun () ->
fill_store ~tlog_dir ~store_dir ~node_name >>= fun (_,_) ->
fill_store ~tlog_dir ~store_dir ~node_name >>= fun () ->
Lwt.return ()
in
Lwt_main.run t;
Expand Down

0 comments on commit c25d019

Please sign in to comment.