207 |
in |
in |
208 |
iter () |
iter () |
209 |
with Not_found -> |
with Not_found -> |
|
lprintf "Unable to get a block !!"; |
|
210 |
check_finished swarmer file; |
check_finished swarmer file; |
211 |
raise Not_found |
raise Not_found |
212 |
in |
in |
246 |
(* lprintf "connect_client... pending\n"; *) |
(* lprintf "connect_client... pending\n"; *) |
247 |
let token = |
let token = |
248 |
add_pending_connection connection_manager (fun token -> |
add_pending_connection connection_manager (fun token -> |
|
lprintf "Connection accepted\n"; |
|
249 |
if List.exists (fun d -> |
if List.exists (fun d -> |
250 |
let file = d.download_file in |
let file = d.download_file in |
251 |
file_state file = FileDownloading |
file_state file = FileDownloading |